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Replay II 

Apple Program Copy And Development System 






• Disk Formatting Irrelevant 

• Does not interfere with other cards 

• Card is transparent until copy is desired 

• Copies ell 64K with 'no' compression 
■ Menu driven 

• Copy and restart in under 15 seconds 

• Copies memory reeiden^Srogranne 

• Analyze programs 

• Development tool 

• Transparent step & trace 

• Backwards & forward disassembly scroll 




Why ours is better! 

1. Accurate copy of memory 

2. Language card not needed to 
copy or run - when using 
Replay Card 

3. Fast copy & restart 

- 15 seconds * 

4. Analysis programs and 60 
pages of documentation 

5. Copy system in eprom 

- No need to boot other disks 
at copy time « 



To order or request info: 
Write or call 

Micro-Analyst, Inc. 
P.O. Box 15003 
Austin, TX 78761 
[51 2] 926-4527 

Dealer Inquiries Welcome 

Cost: 

$1 30.00 [includes postage] 

Outside U.S./Canada add $10 shipping 

Texas residents add $7.50 sales tax 

VISA/MASTER CARD accepted! ! 

REPLAY II is intended to be used as an 
analysis tool, for program development, and 
for making archival backup copies. 

'Apple is a registered trademark for Apple Computers Inc. 



REPLAY II is an interface card that is slot independent. Users can stop a 
program, examine and change memory, or copy the program, and 
restart. Control of the APPLE is obtained by pressing the remote switch 
which comes on an 1 8 inch cord outside the APPLE. REPLAY II does net 
copy the original disk, rather it copies the program executing in memory. If 
a copy is desired a blank disk is inserted in drive 1 and the options on the 
menu are contained in the eprom on the REPLAY II card, no other disk 
needs to be booted far copying, unlike other copy cards. The very act of 
booting another disk alters memory which is detectable by some 
protected software. 

REPLAY II does not change ANY memory. Extra memory is buffered to 
allow copying and analysis without altering the original memory contents. 
Other copy cards always change specific points in the original memory. 
REPLAY II faithfully reproduces the lower 48 K of memory in a fast load 
format. The upper 1 BK can also be copied for a 64K copy. Standard DOS 
3.3 files are created automatically for storage on floppy or herd disks A 
RAM card is needed for this. 

REPLAY II is fully documented in a 60 page manual. Utility programs sup- 
plied with the REPLAY II card include Program Analysis, Comparisons, 
Packing and Compression. A language card is not needed to run packed 
program copies. 

Because most programs are written in Assembly language, the user 
should be familiar with Assembly in order to fully utilize the advanced 
Analysis and Packing programs. Users can now freeze a binary program 
and perform a transparent step or trace while continuous disassembly is 
shown. View text or hires during trace. 

REPLAY II can automatically move protected APPLESOFT programs to a 
standard DOS 3.3 disk for listing or modification. 

Now game players can save a game at any level and QUICKLY restart with 
the REPLAY II card. Users can freeze games, change variables to obtain 
unlimited ships or power, etc., then restart the program. Saving high 
scores is easy! 

Minimum requirements are an APPLE II end a single disk drive. 
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Space Raid, Quick 
Draw Repair 

I like the new magazine format. 
Congratulations. Bugs —I have suc- 
cessfully entered the "Space Raid" 
game by Rich Orde. It only worked 
after I figured out to add line 1555: 

1555 PRINT CHR$(4) "BLOAD 
TABLES" 

This loads the tables from the 
"Make Tables" program on page 42. 1 
like the program listing format (same 
as listed on screen.) 

I often copy programs from maga- 
zines without the REM lines. They 
are very useful in understanding the 
program logic, but they are not 
needed to run the program. The 
"Space Raid" program contains 
many REM statements that are 
called from other GOSUB state- 
ments. Please include as many REM 
statements as you want —the more 
the better. But please do not have 
any program branches go to the 
REM line. 

1 tried to enter the QUICK DRAW 
program in machine language using 
the S.C. Macro Assembler. It didn't 
work. The assembler indicated 
OPCODE ERROR at line 1930 
"BGE SKIP." After several attempts, I 
gave up and simply entered the 
machine language program from the 
monitor. 

I then tried to save it using the 
instructions on page 39; 

BSAVE QUICK DRAW, A$8<B0, 
L$89 

It didn't work, so I then figured 
out the following, and it worked: 

QUICK DRAW. OBJ,A$ffl803,L137 

Peter V. Young 
Ardmore, PA 



Peter— We found that you were prob- 
ably getting a FILE TYPE MISMATCH 
response because there is already an 
Applesoft file on the disk called Quick 
Draw. You might find success by 
instead using the file name QD. Any 
assembly language listings mat con- 
tain BGE commands can be cor- 
rected by substituting BCS. 
Replacing BLT with BCC will also 
eliminate opcode errors when assem- 
bling. 

Keep It Together 

Enclosed find my check for $28. 
Please renew my subscription for the 
next 12 issues of HARDCORE COM- 
PUTIST/CORE. 

I received my first issue of CORE 
today. I find it very informative, 
although I do have one gripe. I urge 
you to refrain from splitting articles 
and placing them at various loca- 
tions. This not only leads to aggrava- 
tion, but also causes mistakes while 
typing in programs. Most computer 
magazines try to keep this to a mini- 
mum, and for good reason. 

George Pleau 
St. Louis, MO 

Double Header 

Congratulations on a great new 
magazine. What a combination — 
CORE and HARDCORE— it will be a 
most difficult pairto beatl Enclosed is 
our check for $1 5 to cover the CORE 
disk — another real bargain. Hope 
that you can keep this economical 
offer in the future. 

Harry M.Randel 
Scotch Plains, NJ 



What Is It? 

What in Heaven's name does the 
latest issue of CORE have to do with 
the magazine I subscribed to? I don't 
have the slightest interest in com- 
puter graphics, but am interested in 
encoding and decoding the materi- 
als on Apple II and III disks. Please 
hold the graphics stuff. 

Professor E J. Blawie 

University of Santa Clara 

School of Law 



DearMr. Blawie — Publishing a maga- 
zine is much like designing an aca- 
demic curriculum — every issue will 
not titillate every reader just as every 
lecture will not thrill every student. But 
if you bear with us, you will find that 
HARDCORE will continue to delve 
into the same problems as always — 
Apple II and III programs. Every third 
month you will receive CORE, which 
will explore in-depth topics, such as 
graphics, or in the next two editions, 
utilities and games. So each year you 
will still receive eight issues of HARD- 
CORE, packed with valuable coding- 
encoding information. You might 
want to look at the CORE issues as a 
bonus to your HARDCORE subscrip- 
tion. 



Bob's Graphic 
Needlework 

Although I'm less interested in the 
graphic aspect of Apple program- 
ming, I enjoyed vol.1/no.1 very 
much. I can't wait for no.2, consider- 
ing your plans, if it's even half as 
good as this! 
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I was intrigued by the use of 
graphics commands to format the 
text screen. The idea had never 
occurred to me before, and it does 
seem to be rather more spiffy. 

After playing around with the idea 
for a bit, I came up with a little varia- 
tion. The enclosed listing explains 
how to use the lo-res color character- 
istic charts on page 17 to alter lines 
30 and 40 to vary the box. (I chose an 
inverse "x" because the appearance 
is more like old needlework.) 

Bob Curtin 
Rochester, NY 



5 
6: 

7 

8: 
9: 

1® 
15 
20 



REM SOX THREE 

REM INSPIRED BY TWO SIMI- 
LAR UTILITIES IN CORE 1-1 



TEXT: 

WW = 
QR 



HOME 
75 



CLEAR 



30 COLOR = 8: GOTO 5® 

40 COLOR = 1 

58 HLIN 8,39 AT X: X = X+1 

68 IFX = 40 THEN 98 

70 IFX/2= INT (X/ 2) THEN 38 

80 GOTO 40 

90 POKE32,1:POKE33,3B: 
POKE 3 4,1: POKE 35, 19: 
HOME 

1 00 POKE - 1 6383,0 

110MS$ = "YOURMESSAGE 
HERE" 

120FORV = 18T02STEP-1: 
VTAB V: HTAB (1 9- LEN (MS$) / 
2):PRINTMS$:VTABV + 1: 
CALL -868: FOR W= 1 TO 
WW: NEXT W: NEXT V: HOME 
: GOTO 128 



Savage Comments 

You need more hard in your Core 
and an update of Castle Wolfenstein. 



Thomas C. Savage 
Sacramento, CA 



Graphic Explanation 

Your readers might be interested in 
a relatively new user's group devoted 
specifically to graphics for the Appfe 
family of computers. The High Resolu- 
tion Picture Library is concerned with 
compilation and dissemination of public 
domain graphics software. We collect 
hi-res pictures, shape tables, and fonts. 

Anyone who would like to join the 
HRPL and receive the HRPL software 
currently available can send a diskette 
in a returnable mailer to HRPL. Return 
postage in the form of stamps is re- 
quired. Any software suitable for con- 
tribution to the library (programs, 
shapes, fonts, etc.} may be included on 
the diskette. Send all correspondence 
to: HRPL, c/o Paul Pritchard; 2353 S. 
8th St.; Omaha, NE 68109. Membership 
is free. 



Paul Pritchard 
Omaha, NE 
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By Brent Millirans 

Requirements: 

Blank, initialized disk 
48K Applesoft in ROM 
At least one disk drive 

The Dynamic Menu Utility uses a push-button approach to 
writing a menu routine. It creates a text file from .5 to perhaps 
4K of Applesoft code which will place a RUNable menu in 
memory with the touch of only a few keys. 

Using the Dynamic Menu Utility, it is quite simple to gener- 
ate a menu of your choice in about five minutes. 

Once the menu has been saved to disk and EXECed back 
into memory, renumbering, further editing and interfacing to 
other program routines can take place. The time saved is sub- 
stantial, especially if a large number of selections is necessary. 

The Dynamic Menu Utility sets up a dummy menu from 
which to work. This will be referred to as the "information 
block." The only time an information block is not available is 
when the edit mode is entered and memory is empty. 

There are four areas within the program (each will be 
explained in detail later in the article): 

1) The Main Menu 

2) The Director Screen 

3) The Edit Screen 

4) The Fix Screen 

A short tutorial will provide the user with a functional 
method of exploring each area and of handling the program as 
a whole for the first time. Practice, as always, makes perfect. 



How to Use 
Dynamic Menu Utility 

Type in the Dynamic Menu Utility Applesoft listing 
which starts on page 5. 

Save the program. 

Running the Dynamic Menu Utility brings you to the main 
menu. Although various functions are available at this point, 
select number 1 , "Develop Menu." 

You will be asked to select either double (D) or single (S) 
spacing. Type "D" for now. Next, enter the number of lines 
that the proposed menu requires. Type "4" and press return. 
The program will go to the director screen with a dummy 
menu and tide line. This is what is used to construct the real 
menu. 

To enter the edit mode, press "E" . The dummy menu, or 
information block, will be transferred to the edit screen. At 
the bottom, note the command line ( < < Command) and the 
prompt "Line Symbol." Press "L" for line and "Line= " will 
appear. Enter "A" for line A of the alphabetic scaler, which is 
where the title will be placed. The line will disappear awaiting 
your entry. Type in "Apple II Tests" and press return. 

The new title tine will appear and the prompt "Tide in 
Inverse or Normal" will be displayed. Press "I" for inverse. 
Now the information block should have the inverse title 
"Apple II Tests" plus four tines, each with the word "selec- 
tion" in normal video. 

Use the "Line" command again, placing in each tine 
(C,E,G,H) the selections "RAM Card," "ROM Card," 
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"Memory Test" and "Integer Card." When the prompt "Line 
Symbol" returns, press "S" for symbol. Next press "L" for 
letter followed by "I" for inverse. The information block 
should now look like this; 

APPLE O TESTS 



A RAM CARD 



B ROM CARD 



C MEMORY TEST 



D INTEGER CARD 

At this point, exit by pressing "X" and return to the direc- 
tor. The information block will follow. 



Type "F" for fix, and you are back in a similar screen area 
but in the fix mode. 

The next step is to position the block for the most pleasing 
look. Type "P" for position and the prompt will read "Title or 
Item." Press "T" for title and then "C" for center. The title 
should now be centered, but the rest of the block should not 
have moved. 

Now press "P" again, followed by "I" for item. Again, 
entering "C" should center the remainder of the information 
block. The column command could have been used here as 
well. Try it if you like and then return the information block to 
center 

The menu is now ready to be positioned vertically. By press- 
ing "V" for vertical, the next entry will position the title and 
the menu body using the alphabetic scaler in the left margin. 
The whole menu is repositioned with the title to prevent over- 
lapping. 

Enter "C" and watch the information block reposition from 
line C on down. Now press "G" and the menu body will posi- 
tion downward separately from the tide. 

At this point you may wish to play around with different 



Dynamic 




10 ONERR GOTO 1760 
20 D$ = CHR$ (13) + CHR$ (4) :G$ 
= CHR$ (7) :ST = 1:TZ$ = "N 
ORMAL": GOTO 120 
30 H% = 20 - LEN (OB$) / 2: RETURN 
40 Hl% = 19 - LEN (OB$) / 2: RETURN 

50 T = PEEK (36) + 1: HTAB T: PRINT 
A$;G$;: HTAB T: CALL - 868: 
HTAB T: PRINT A$; : RETURN 
60 FOR I = 1 TO 500: NEXT : RETURN 



70 

80 

90 
100 

110 
120 

130 

140 
150 
160 
170 



FOR I =1 TO LI: POKE - 1633 

6, PEEK ( - 16336) : NEXT : RETURN 
IF I < 10 AND NN = 1 THEN PRINT 

S$ ; : RETURN 
RETURN 

IF TZ$ = "INVERSE" THEN INVERSE 

: RETURN 

FOR I = 1 TO 100: NEXT : RETURN 

DIM IT$(16) ,V%(24) ,SY$(16),L 

M$(22) : IF TG THEN RETURN 
ppji^ ********************* 

REM ** ** 

REM ** FIRST PAGE ** 

REM ** ** 

PPM ********************* 



180 



190 



200 



210 
220 



230 
240 
250 
260 
270 
280 



Program 



TEXT : HOME : 
:LI = 7:TT$ = 
U UTILITY :": 
: READ SE$(I) 



V% = 3:S$ = " " 
": DYNAMIC MEN 
FOR I = 1 TO 5 

: NEXT : RESTORE 



VTAB 3: INVERSE : HTAB 9: PRINT 

TT$: PRINT : VTAB 7: FOR I = 

1 TO 4: HTAB 14: PRINT I;: NORMAL 

: PRINT SE${I): INVERSE : PRINT 

: NEXT : VTAB 21: HTAB 9: INVERSE 

: PRINT ": PROGRAM AIDE 

:": NORMAL' 

GOSUB 70: GOSUB 110: GOSUB 7 

0: GOSUB 110: GOSUB 70: PRINT 

: FLASH : HTAB 14: VTAB 17: PRINT 

"E";: NORMAL : PRINT SE$(5); 

: HTAB 14: GET AN$: INVERSE 

: PRINT AN$: NORMAL : GOSUB 

70: GOSUB 110: GOSUB 70:AN = 

VAL (AN$) : IF AN < 1 OR AN > 

4 THEN 200 

ON AN GOTO 280,590,700,220 

VTAB 21:SG$ = ": PROGRAM IS 

COMPLETED : " : HTAB 9: INVERSE 

: PRINT SG$: NORMAL : VTAB 2 

3: END 

RF.M ********************* 

REM ** PARAMETERS ** 
REM ** FOR DEVELOPER ** 
REM ** ** 

prpj^ ********************* 

VTAB 21: HTAB 14: INVERSE : PRINT 
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arrangements. But remember, going back to edit will always 
refix the information block to the edit position. 

The next step is to save the finished menu to disk. This is 
accomplished by returning to the director screen (press "X") 
and pressing "S" for save. Add your file name {say "test- 
menu") and press return. If you mistakenly select save or 
load, entering "X" for a file name will allow an escape. 

The drive will start as two files are saved to disk. The screen 
will display the files being manufactured and saved. One is a 
data file which, when read in under "load," will reinstall a 
menu for further editing. The other is an EXECutable text file 
which will install the menu Applesoft code in memory. 

NOTE: The NEW command should be entered before 
EXECing any file because the EXEC command does not clear 
memory as RUN or BRUN does. 

The rest is up to you. Reading the explanation of each area 
of the program and the corresponding commands should 
answer most questions. 



Main Menu 

Main Menu selections; 

1) Develop Menu— Allows building a menu from scratch 
with full-time editing avadable. 

2) Revise Files— Brings fde into memory for further editing 
or revision. 

3) Edit Program— Allows reentry to editing without loss of 
data in case of irrecoverable error. 

4) Exit Program— Returns user to Applesoft. 

The setup entry for the "Develop Menu" selection will 
require two initial inputs before allowing editing. You must 
specify; 1) single or double spacing, and 2) the number of 
items in the proposed menu. 

As a programming hint, two or three shorter menus are 
much more user-friendly than one long one. 

In "Revise Files" mode you will be asked for a file name, 
but only the user portion (i.e., "test"). Since the program 
assigns a primary file name (menu. mod.), the user provides 
only the latter portion (menu. mod. test). The display will say, 



Dynamic 

I 



I 




l «*"c 



" DEVELOP MENU ": NORMAL : GOSUB 
60: CLEAR :WA$ = "": TEXT : HOME 
:MX = 16:S$ = " ":TG = 1: GOSUB 
20:TI$ = " -DEVELOPEMENT- ": 
FOR I = TO 16:IT$(I) = "S 
ELECTION": NEXT 
290 VTAB 2: HTAB 12: INVERSE : PRINT 

TI$: NORMAL :LI * 2 

300 VTAB 5: PRINT "SINGLE SPACES 

OR DOUBLE ... D";: HTAB 29: 

GET PC$: INVERSE : PRINT PC 

$: NORMAL : GOSUB 70: IF PC$ 

= "D" THEN SP = 1:MX = 8 

310 IF PC$ < > "D" AND PC$ < > 
"S" THEN 300 

320 VTAB 7: PRINT "HOW MANY ENTR 

IES ": PRINT "(MAX 

IMUM=";MX;") ": VTAB 7: HTAB 
29: INPUT "";N: GOSUB 70: IF 
N < 1 OR N > MX THEN VTAB 8 
:A$ = " -INVALID- ": GOSUB 5 
0: GOSUB 60: PRINT : GOTO 32 


330 Vl% = 2:V% = 2:H% = 3:H1% = 2 

:TI$ = "TITLE LINE": IF SP THEN 
ST = 2:N = N * 2 

340 GOTO 460 



Program 



350 V2% = V%: IF Vl% > 2 THEN V2% 
= 

360 HOME : VTAB V%: HTAB H%: GOSUB 
100: PRINT TI$: NORMAL : VTAB 
VII + V2%: FOR I = 1 TO N STEP 
ST: IF FH THEN FLASH : HTAB 
Hl%: PRINT SY$(I);: NORMAL : 

GOSUB 80: PRINT S$;IT$(I): GOTO 
390 

370 IF IV THEN INVERSE : HT7AB H 

1% : PRINT SY$ ( I | ; : NORMAL : GOSUB 
80: PRINT S$;IT$(I): GOTO 39 


380 HTAB Hl%: GOSUB 80: PRINT SY 
$U);S$;IT${I) 

390 IF SP THEN PRINT 

400 NEXT : RETURN 

**** * * ft ** ft ******* ft* ft ft * 
** ** 

** THE DIRECTOR ** 
** ** 

********************** 

: POKE 32,2: POKE 33,38 
: VTAB 22: FOR I = 2 TO 38: PRINT 
"-";: NEXT : HTAB 1: INVERSE 
: PRINT "<DIRECTOR>";: NORMAL 
: HTAB 24: PRINT "-('X' TO E 
XIT}" 

VTAB 23: HTAB 1: PRINT "[E]D 
IT";: HTAB 8: PRINT "[F]IX"; 
: HTAB 14: PRINT "[S]AVE";: HTAB 



410 


REM 


420 


REM 


430 


REM 


440 


REM 


450 


REM 


460 


HOME 



470 
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"Add file name; menu. mod." The user will simply type 
"test" or whatever file name is chosen. 

With "Edit" selection, if memory has a file in it, you will 
be returned to the edit mode , If memory is empty you will be 
returned to the director, A file may be loaded from disk just as 
in the revise mode. 

Director Screen 

While working from the director screen (as noted at the bot- 
tom left corner) there are four basic commands available. Any 
selection from the main menu will be processed through the 
director screen, except the edit mode selection if a file is in 
memory. 

Edit— Places the information block in the edit mode using a 
formatting grid. While in this mode the text of each line of the 
information block may be altered. 

Fix— Places the information block in the fix mode using a 
formatting grid. While in this mode the vertical and horizontal 
position of the information block may be changed. It is impor- 
tant that all editing work be completed before "fixing" the 



position of the information block. The reason for this is that 
the edit mode automatically fixes the information block so the 
program can accurately locate the line currently being altered. 

Save— Asks for the name under which you wish to save the 
finished menu. The name chosen should be short, as it is 
appended to an internally selected file name. You will be 
asked to "add file name: menu.mod." Your chosen name, say 
"testmenu," would result in a file name of "menu. mod. test- 
menu" . The reason for this is that the Dynamic Menu Utility 
writes two files. One is executable and one is for data only. 
Two files would result on disk from the above example, 
"menu. mod. menutest" and "menu.val.menutest." 

Load— Asks for the name to be appended to the internal file 
name "menu.val." This is the data file and memory will be 
loaded with proper data resulting in an editable information 
block. You are then returned to the director screen. 

X— Exit to main menu. In the edit and fix modes, additional 
commands are available. The edit mode is described first as 
this is the usual starting point. 
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21: PRINT "[L]OAD"; 
480 HTAB 28: PRINT "« SELECT"? 



490 



500 
510 
520 

530 
540 
550 



GOSUB 570: GOSUB 
HTAB 37: GET S 



POKE 35,21: 
550: VTAB 23 
E$: GOSUB 70 

IF SE$ = "E" THEN FX = 0:V% = 

2:V1% = 4:H% = 2:H1% = 2: GOTO 

770 

IF SE$ - "F" THEN 1050 

IF SE$ = "S" THEN 1410 

IF SE$ = "L" THEN 650 

IF SE$ = "X" THEN 180 
GOTO 480 

IF WA$ < > "" THEN VTAB 10 
:OB$ = WA$: GOSUB 30: HTAB H 
%: PRINT WA$ 



560 RETURN 

570 IF NOT EX THEN GOSUB 350 

580 RETURN 

590 LI = 2: VTAB 21: HTAB 14: INVERSE 
: PRINT " REVISE FILES ": NORMAL 
: GOSUB 60:EX = 1: TEXT : HOME 
:WA$ = "LOAD FILE TO BE MODI 
FIED":OB$ = WA$: GOSUB 30: GOTO 
460 



660 



670 
680 



690 



Program 



600 


REM 


610 


REM 


620 


REM 


630 


REM 


640 


REM 


650 


HOME 



********************** 
** ** 

** LOAD ROUTINE ** 
** ** 

********************** 

: VTAB 3: HTAB 14: INVERSE 
: PRINT ": FILE LOAD :": NORMAL 
: POKE 34,4: VTAB 7:XF = 1:F 
L$ = "MENU.VAL.": HTAB 15: PRINT 
FL$;: HTAB 1: PRINT "ADD FIL 
ENAME: ";: HTAB 24: INPUT "" 
;NA$: GOSUB 70:FL$ = FL$ + N 
A$ 

IF NA$ = "" THEN HOME :A$ = 
"NO ENTRY - RESELECT" : VTAB 
10: HTAB H%: GOSUB 50: VTAB 
23: GOSUB 60: GOTO 480 
IF NA$ b "X" THEN 180 
PRINT : PRINT D$;"MONICO": PRINT 
D$ ; "OPEN" ; FL$ : PRINT D$;"REA 
D";FL$: INPUT FH: INPUT IV: INPUT 
TI$: INPUT H%: INPUT Hl%: INPUT 
V%: INPUT N: INPUT SP: INPUT 
TZ$:ST = 1: IF SP THEN ST = 
2 

FOR I = 1 TO N STEP ST: INPUT 
SY$(I): INPUT IT$(I): NEXT : 
INPUT TY$: INPUT Vl%: INPUT 
V2%: PRINT D$; "CLOSE": PRINT 
D$;"NOMONICO": POKE 34,0: HOME 
:WA$ = "":EX = 0: GOTO 460: END 
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Edit Screen 

When entering the edit mode, the Apple will beep and 
" < < Command" will appear in the right bottom corner. This 
simply draws attention to the command queries. You will be 
prompted by the words "Line Symbol." Pressing the key cor- 
responding to the first letter of either command will provide 
the desired operation. 

Line— Asks for which line to edit using the left margin scale 
A through S. Line "T" is reserved for the prompt. Enter the 
wording desired, but keep it short (under 30 characters). Use 
the left arrow key as usual to backspace and correct mistakes. 
You may, of course, reselect the line. When selecting Line A 
(Line = A), you will always be altering the title. After typing 
in the title of the menu being built (or leaving it blank) you will 
be asked whether you wish the title in normal or inverse video. 
Select by keypress as desired. You will be returned to the com- 
mand line and prompted with "Line Symbol." 

Symbol— Refers to the "keypress symbol" that you wish to 
use in your menu. You will be prompted to select "letter 
or number" symbols. The letters A through Z (if 



necessary) will be assigned to the left of each selection entry if 
letters are selected. Numbers may otherwise be assigned. You 
will afterward be prompted to choose whether the assigned 
symbols will be displayed normally, or in flashing or inverse 
video. There is no interference between the Line or Symbol 
commands. Either may be selected at any time, 

X— At the point of completion in the edit mode the X com- 
mand will return you to the director screen. 

NOTE: The Dynamic Menu Utility will automatically 
assign a "prompt line" for your menu in a complementary 
style to the finished information block. This is only visible 
when running the finished product. 

Fix Screen 

The fix mode would be the next step in building the menu. 
Depending on the size of the menu in progress, its position on 
the screen will need to be changed. 

The command line will feature the prompt "Position 
Column Vertical." Again, pressing a key corresponding to the 
first letter of each word will produce the desired operation. 

Position— Asks for the desired horizontal position of the 




700 LI = 2: VTAB 21: HTAB 14: INVERSE 
PRINT " EDIT PROGRAM ": NORMAL 
GOSUB 60:WA$ * "":EX = 0: TEXT 
HOME : IF IT$(1) = "" THEN 
WA$ = "NO FILE IN MEMORY": GOTO 
460 

"E": GOTO 490 
********************** 

** ** 

** EDIT MENU ** 
** ** 

********************** 



710 SE$ * 
720 REM 



730 
740 
750 
760 
770 



REM 
REM 
REM 
REM 
TEXT 



HOME : HTAB 22: FLASH 
: PRINT "EDIT";: NORMAL : PRINT 
" ('X' TO EXIT)": POKE 34,1 
780 FOR I = 1 TO 21:LM$(I) = CHR$ 
(I + 64) : PRINT IM$(I) + "-" 
: NEXT : PRINT ;: POKE 32,2: 
POKE 33,38: VTAB 22: PRINT 
"--*■"?: FOR IR = 1 TO 7: FOR 
I = 1 TO 4: PRINT "-";: NEXT 
I: PRINT "*";: NEXT IR 
790 VTAB 23: HTAB 2: PRINT "CO"; 
: FOR I = 10 TO 40 STEP 5:1$ 
= STR$ (I) : PRINT SPC( 3) 
+ "C" + LEFT? <I$,1);: NEXT 
:B$ = " 5": FOR I = 10 TO 4 
STEP 5:1$ = STR$ (I) :B$ = 



Program 



B$ + " " + RIGHT$ (I$,l) 

: NEXT 
800 VTAB 24: PRINT LEFT? (B$,37 

);: POKE 2039, ASC ( MID$ (B 

$,38,1}) + 128: VTAB 1: POKE 

35,21 
810 GOSUB 350: VTAB 21: HTAB 29: 
PRINT "«COMMAND";: VTAB 21 

: HTAB 1: POKE 33,38: GOSUB 

60: IF FX THEN 1060 
820 HTAB 1: PRINT SPC( 27)?: HTAB 

1: PRINT "[L]INE [S]YMBOL 

«COMMAND";: HTAB 

28: GET CM$: IF CM$ < > "L" 
AND CM$ < > "S" AND CM$ < 
> "X" THEN 820 
830 GOSUB 1220: IF CM? < > "L" THEN 

910 
840 V% = ASC (LN$) - 63: IF V% > 

24 THEN V% = 2: TEXT : HOME 

: GOTO 460 
850 IF V% < 1 OR V% > 22 THEN 82 


860 VTAB V%: HTAB 3: IF LN$ = "A 

" THEN HTAB 1:TI$ = "": PRINT 
SPC( 30);: HTAB 3: INPUT "" 

;TI$: GOSUB 70: GOTO 880 
870 LN = ASC (LN$) - 66: HTAB 1: 

PRINT SFC( 30);: HTAB 4: INPUT 

"";IT${LN) : GOSUB 70 
880 IF LN$ n "A" THEN VTAB V%: HTAB 

H%: PRINT SPC( 25);: HTAB H 
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title or the item of the information block. Enter "T" for title or 
"I" for item. One of the prompts, flush left, flush right or cen- 
tered, will then be offered. A single keypress will automatic- 
ally fix the horizontal position of the selected part of the 
information block. 

Column— Should the position command not be adequate for 
horizontal positioning, the column command uses the numeric 
scale along the bottom of the screen. The entry range is 1 
through 40, and will HTAB the information block accord- 
ingly. This command also moves the title and the item block 
separately. Only the first item of the information block is 
aligned. Other items following are keyed to the first item. 

Vertical— Asks for the vertical position of the information 
block using the left margin alphabetic scale. This is done in 
two parts. When first selected, you will be prompted for the 
vertical position of the title line (even though blank) . Enter the 
letter corresponding to the vertical position you wish to use for 
the title only. Although the entire information block will 
move, a second prompt will ask for the vertical position of the 
initial selection entry (item). The body of the menu will then 



be moved separately, leaving the tide as it was originally posi- 
tioned. 

X— Exits the fix mode and returns control to the director 
screen. 

At this point the menu should be edited and the position 
fixed. However, the edit mode could be reentered if desired. 
Note again that the information block will have to be 
"refixed" if additional editing is done. The SAVE command 
will allow you to save the generated menu to disk (see SAVE 
command). 

Improving the Program 

By now you may have several ideas for program improve- 
ments. One suggestion is to make it possible for the Menu pro- 
gram to be incremented by any number of lines, starting at any 
line number. This would allow the menu to be placed conven- 
iently in other programs. 



4F 



Dynamic _/: * 




%: GOSUB 100: PRINT TI$: NORMAL 
: VTAB 21: PRINT "TITLE IN " 
;: PRINT " [I]NVERSE OR [N]OR 
MAL ?";: CALL - 868: HTAB 3 
2: GET TZ$: GOSUB 70 

890 IF TZ$ = "I" THEN TZ$ = "INV 
ERSE": GOTO 900 

900 V% = 2: GOSUB 350: VTAB 21: GOTO 
820 

910 IF SY$ = "L" THEN GOSUB 127 
0:SY$ - "" 

920 IF SY$ = "N" THEN GOSUB 130 
0:SY$ = "" 

930 IF CM$ = "T" THEN 950 

940 CM$ = "T": GOSUB 1250 

950 IF TY$ = "F" THEN FH - 1:TY$ 

960 IF TY$ = "I" THEN IV = 1:FH = 

0:TY$ = "" 
970 IF TY$ = "N" THEN FH = 0:1V = 


980 GOTO 810 
990 TEXT : GOTO 460 
1000 REM ********************* 

1010 REM ** ** 

1020 REM ** FIX POSITIONS ** 

1030 REM ** ** 

1040 REM ********************* 

1050 TEXT : HOME : HTAB 23: FLASH 



: PRINT "FIX" ; : NORMAL : PRINT 
" ('X' TO EXIT)": POKE 34,1: 
FX = 1: GOTO 780 
1060 VTAB 21: HTAB 1: PRINT SPC( 
37);: HTAB 1: PRINT "[P]OSIT 
ION [C]OLUMN [V]ERTICAL "; : GET 
CM$: IF CM$ < > "X" AND CM$ 

< > "P" AND CM$ < > "C" AND 
CM$ < > "V" THEN 1060 
1070 GOSUB 1330 
1080 IF CM$ = "V" THEN V% = ASC 

(VT$) - 63:V1I = V% + 2: GOSUB 
350: GOSUB 1380 :V1% = ASC ( 
Vl$) - 63: GOSUB 350: GOTO 1 
060 
IF CM$ = "P" THEN 1130 
IF QL$ = "I" THEN Hl% = VAL 
(CL$) - 2: GOSUB 1200 
IF QL$ = "T" THEN H% = VAL 
(CL$) - 2: GOSUB 1200 
GOSUB 350: GOTO 1060 
IF AN$ = "L" AND QL$ = "T" THEN 



1090 
1100 

1110 

1120 
1130 

1140 

1150 

1160 

1170 

1180 

1190 
1200 



H% = 1 

IF AN$ = "L" AND QL$ = "I" THEN 
Hl% = 1 

IF AN$ 
H% = 38 

IF AN$ 
Hl% = 36 - 



"R" AND QL$ 
LEN (TI$) 
"R" AND QL$ 
LEN (IT$(1)) 



"T" THEN 



'I" THEN 



IF AN$ = "C" AND QL$ = "T" THEN 
OB$ = TI$: GOSUB 30 

IF AN$ = "C" AND QL$ * "I" THEN 
OB$ = IT$(1): GOSUB 40 

GOSUB 350: GOTO 1060 

IF H% < 1 OR H% > 38 THEN A 
$ = "-INVALID-": VTAB 3: HTAB 
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Dynamic 




Program 



1210 
1220 
1230 



1240 



1250 



1260 
1270 

1280 



1290 
1300 

1310 



1320 
1330 
1340 

1350 



1360 



1370 



27: GOSUB 50: VTAB 21: POP : 

GOTO 1060 

RETURN : END 

IF CM$ = "X" THEN 990 

VTAB 21: IF CM$ = "L" THEN 

HTAB 1: PRINT SPC ( 20);: HTAB 
1 : PRINT "LINE= " ; : GET LN$ : 

PRINT LN$ ; : RETURN 

VTAB 21: HTAB 1: IF CM$ = " 
S" THEN PRINT M SYMBOL= [L]E 
TTER [N] UMBER ";: GET SY$: GOSUB 
70: PRINT SY$;: RETURN 

VTAB 21: HTAB 1: PRINT SPC( 
37);: HTAB 1: IF CM$ = "T" THEN 

PRINT "TYPE= ";: PRINT " [F] 
LASH [I]NVERSE [N] ORMAL "; : GET 
TY$: GOSUB 70: PRINT TY$;: RETURN 

GOTO 1220 
RL = 16:NN = 0:R = 0: IF SP THEN 
RL = 8 

FOR I = 1 TO RL:SY$(I + R) = 

CHR$ (I + 64) : IF SP THEN R 

= R + 1 

NEXT : RETURN 
NN=1:RL=16:R=0: IF SP THEN 
RL - 8:NN = 

FOR I - 1 TO RL:SY$(I + R) = 

STR$ (I) : IF SP THEN R = R + 
1 

NEXT : RETURN 

IF CM$ = "X" THEN 990 

IF CM$ = "P" THEN GOSUB 14 
00 

VTAB 21: HTAB 1: IF CM$ - " 
P" THEN PRINT "POS.=FLUSH " 
;: PRINT "[L]EFT [R] IGHT OR 
[C] ENTER";: GET AN$: GOSUB 7 
0: RETURN 

IF CM$ = "V" THEN PRINT SPC( 
37);: HTAB 1: PRINT "VTAB TI 
TLE AT LINE= ";: GET VT$: GOSUB 
70: RETURN 

IF CM$ = "C" THEN GOSUB 14 
00: HTAB 1: PRINT SPC( 26): 

HTAB 1: PRINT "COLUMN NUMEE 
R=";: HTAB 16: INPUT "";CL$: 

GOSUB 70: RETURN 



1380 



1390 
1400 



1410 





U.VAL 


1420 


REM 


1430 


REM 


1440 


REM 


1450 


REM 


1460 


REM 


1470 


HOME 



14K0 



1490 



1500 
1510 

1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 



IF CM$ = "V" THEN VTAB 21: 
HTAB 1:V2% = 0: PRINT "VTAB 
FIRST ENTRY AT= "?: GET Vl$ 

: GOSUB 70: RETURN 
GOTO 1330 
HTAB 1: VTAB 21: PRINT " [T] 

ITLE OR [ I ] TEM POSITION " ; : 
CALL - 868: GET QL$: GOSUB 

70: RETURN 

FI$ == "MENU.MOD.":FL$ = "MEN 
ii 

********************* 

** ** 

** GET FILE NAME ** 

: VTAB 3: HTAB 13: INVERSE 
: PRINT ": FILE SAVE :": NORMAL 
: POKE 34,4: VTAB 6: PRINT " 
ADD FILENAME: "?FI$;: INPUT 
"";NA$: GOSUB 70 

GOSUB 1490: GOSUB 1510 :FI$ = 
FI$ + NA$:FL$ = FL$ + NA$: VTAB 
8: PRINT "DISK READY PLEASE 
...DRIVE 1": VTAB 10: PRINT 
"PRESS RETURN ";: GET RT$: GOSUB 
70: GOTO 1530 

IF NA$ = "" THEN POP : VTAB 
8: PRINT "NO FILE NAME ...": 

VTAB 10: PRINT "RE-ENTER OR 

TYPE 'X' TO EXIT ";G$: GOSUB 
60: GOSUB 60: GOTO 1470 

RETURN 

IF NA$ = "X" THEN POKE 34, 
0: HOME : POP : GOTO 460 

RETURN 

IF FH THEN TY$ = "FLASH" 

IF IV THEN TY$ = "INVERSE" 

RFTM ********************* 

REM ** ** 

REM ** SAVE ROUTINE ** 
KEM ** ** 

J?RM ********************* 

PRINT D$;"MONICO": PRINT D$ 
;"OPEN";FI$: PRINT D$; "DELET 
E"?FI$: PRINT D$; "OPEN" ;FI$: 

PRINT D$; "WRITE" ;FI$: PRINT 
"1000 TEXT:HOME": PRINT "100 
5 VTAB";V%;":HTAB";H%;":";TZ 
$;":PRINT"; CHR$ (34);TI$; CHR$ 
(34);":NORMAL" 
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Dynamic 




1605 END 

1610 IF SP THEN FOR I = 1 TO N STEP 
2: GOTO 1630 

1620 FOR I = 1 TO N 

1630 PRINT "10" + STR$ ((1*5) 
+ 5) + "VTAB"; <V1% - 1) + I 
I " :HTAB" ;H1% ? " : " ;TY$ ; " : PRINT 
"; CHR$ (34);SY$(I); CHR$ (3 
4) ;";: NORMAL: PRINT"; CHR$ (3 
4);S$ + IT${I); CHR$ (34): NEXT 

1640 PRINT "1200 VTAB 21:HTAB";H 
1%;":";TY$;":PRINT"; CHR$ (3 
4);"S"? CHR$ (34);"?: NORMAL 
: PRINT "; CHR$ (34);" SELE 
CT..."; CHR$ (34);";: HTAB " 
;H1%;": GET SE$: PRINT SE$": 
IF SP THEN FOR I = 1 TO N STEP 
2: GOTO 1660 
1650 FOR I = 1 TO N 

1660 PRINT "12" + STR$ ((1*5) 
+ 5) + " IF SE$="; CHR$ (34 
);SY$(I); CHR$ (34);"THEN 14 
" + STR$ ((1*5) + 5) : NEXT 
: PRINT "1390 GOTO 1200": IF 
SP THEN FOR I = 1 TO N STEP 
2: GOTO 1680 

1670 FOR I = 1 TO N 

1680 PRINT "14" + STR$ ((1*5) 

+ 5) + " VTAB 23:PRINT"; CHR$ 
(34);IT$(I);" ROUTINE"; CHR$ 
(34);": END ": NEXT : PRINT 
"1500 END": PRINT D$;"CLOSE" 
: PRINT D$;"OPEN";FL$: PRINT 
D$; "DELETE" ;FL$: PRINT D$;"0 
PEN";FL$: PRINT D$; "WRITE" ;F 
L$ 

1690 PRINT FH: PRINT IV: PRINT T 

1$: PRINT H%: PRINT Hl%: PRINT 
V%: PRINT N: PRINT SP: PRINT 
TZ$:ST - 1: IF SP THEN ST = 
2 

1700 FOR I = 1 TO N STEP ST: PRINT 
SY$(I): PRINT IT$(I): NEXT : 
PRINT TY$: PRINT Vl%: PRINT 
V2%: PRIM 1 D$;"CLOSE": PRINT 
D$;"NOMONICO": GOTO 180 



Program 



1710 
1730 
1750 
1760 



17/0 



Bf?M ********************* 
REM ** ERROR TRAPPER ** 

rypM ********************* 

TEXT : HOME : VTAB 12: HTAB 
10: INVERSE : PRINT "-IRRECO 
VERABLE ERROR-": HTAB 13: PRINT 
"-AUTO RE-START-": NORMAL : PRINT 
G$G$G$: GOSUB 60: GOSUB 60:T 
M = TM + 1: IF TM = 3 THEN RUN 
VI = 2:V1% = 2:V2% = 2: GOTO 

460 

********** 

MENU-GENERATOR * 

BY * 

BRENT A.MILLIRANS * 
* 

********** 
" DEVELOP MENU"," RE 
VISE FILES"," EDIT PROGRAM", 
" EXIT PROGRAM" , " ENTER ITEM 
#" 



1780 


REM 


* 


1800 


REM 


* 


1820 


REM 


* 


1840 


REM 


* 


1860 


REM 


* 


1880 


REM 


* 


1890 


DATA 





DISK DRIVES 

^ X. J7 J7 First time under $200! 

At last you can afford to buy another drive!! 

• Siemens drive mechanism (uses lead 
screw instead of rotating cam, for very 
quiet, reliable operation) 

• Works with your present controller 

• Can be used as 35 or 40 track drive 

• Improved self-centering of diskettes 

• Externally-adjustable speed control 

• Handles synchronized tracks 

• Manufacturer's 1 -year warrantee 

These superb ready-to-use drives come 
with standard size and color casings. Disk 
controller cards available: $65.00 



No charge cards or COD orders. Add $5 for shipping and 
handling. Send money order or certified check for immediate 
shipment, $4 extra for 2nd day delivery 
Ask for free 74LS1 25 chip with order. 



VF ASSOCIATES 

6327 Western Ave, N.W., Wash., D.C. 200t5 
(202) 363-1313 



P.O. Box 44549, Tacoma, WA 98444 



CORE I, no. 2 



Page 11 



■•wiiirHiiiiPWiHiiiiiiiHieirMiiiiiiiPipiHiJtmiiiiniiiiiiiFiHi]|iiiiiiiiiiiiiHiuiiiiFiiiPriiPiii^iiiiii | iikiiiniiHihiiiiiiiiii4iitiiiiii»iiiiiiiiiiiiii!iiiiiiiiiiiui*iiiiiir luiiiiiiiiiitiiiiiiiiiiiiiiiitniiiii iiiiiiiiiniiitiwwiiiii iimiiiimiiiiih mum 



RESOLUTION 
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By Michael Patrick Scanlin 

Requirements: 

Blank, initialized disk 

48K, Applesoft in ROM 

One disk drive 

In one smooth motion the screen phased from white on 
black into black on white. The inverse routine in Juggler was 
my motivation to devise an original one. 

But just inverting the screen proved unchallenging, so I 
added a few twists to the program. Besides the normal inverse 
routine, I created routines for inverting the screen from top to 
bottom and from right to left, and a programmable delay to be 
used with any of these functions. 

Inverting the screen in various ways was a bigger challenge, 
but then I decided to add more routines which would transpose 
and flip the screen. Next, I added a separate program which 
simulates the game Ultima by scrolling hi-res page one up, 
down, right or left. The result of all this is a complete set of hi- 
res utilities. 

ROUTINES PROGRAM 

The inverse, flip, and transpose routines are part of the hi- 
res utility program ROUTINES. To use the program: 

1) Type in the ROUTINES listing on page 16 . 

2) BSAVE ROUTINES, A $9800, L$1FB 

3) BLOAD ROUTINES 
CALL 36864 

This sets up a table of base addresses that the routines use at 



$9200 in memory. To access the inverse routines described 
earlier simply make the appropriate CALL. 

Routine CALL 

fast 36997 ($9085) 

top to bottom w/delay 37024 <$90A0) 

right to left w/delay 37058 <$90C2) 

Transpose Routine 

The transpose routine included with the inverse package is 
used to move hi-res page two onto page one while displaying 
page one. There are three ways to move the pages, which cor- 
respond to the inverse sequence. 

Routine CALL 

fast 36874 ($900A) 

top to bottom w/delay 36908 ($902C) 

right to left w/delay 36947 ($9053) 

Flip Routine 

Two flip routines are included with this package. They can be 
used to turn hi-res page one upside down or to turn it right to 
left. 



Routine 

top to bottom w/delay 
right to left w/delay 



CALL 

37107 ($90F3) 
37172 ($9134) 



Delay Routine 

The delay routine used is the monitor's ($FCA8). To change 
the delay for all of the routines, POKE 254, X where X is any 
number from 1 to 255, The smaller the number, the shorter the 
delay. 
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How the Routines Work 

The inverse routines use the logical EOR function, which 
allows the status of any given bit or set of bits in a byte to be 
changed. All that is necessary is to EOR the bit (or bits) with 
one. This will change it to the opposite of what the bit was 
originally. 

A byte on the hi-res screen contains seven pixels, each of 
which is one bit. The eighth bit is the color bit. In order to 
invert all the pixels on the graphics page, EOR the lower 
seven bits (preserving the color bit) of every byte with one, 
from memory locations S2000 to $3FFF (the hi-res screen). 



The transpose routines aren't too difficult to understand. 
They are memory move commands which take place in a defi- 
nite order to give special effects. The only one that requires 
any explanation is the right-to-left routine, which uses the log- 
ical AND function. This function can be thought of like multi- 
plication. If you AND zero and one, you get zero (because * 
1 = 0). If you AND one and one, you get one (1*1= 1), 

So, in order to get the smooth right to left motion, create a 
loop that will show one more bit of each byte each time it goes 
through the loop. The first time through, AND each byte in a 
column with 00000001 . This will cut off all but the first bit. 
Next time through the loop, AND each byte with 00000011 




10 REM 

20 REM ** VARIBLES SET TO SUBROU 

TINES •* 
30 REM 
40 IRL = 37058:1TB = 37024: INV = 

36997 
50 FTB ■ 37107:FRL * 37172:SETUP = 

* 36864 
60 TNS = 36674:TRL * 36947:TTB = 

36908 
70 DLAY = 254 
80 TEXT : HOME 
90 VTAB 1: HTAB 1: PRINT "INVERS 

E t, FLIP DEMONSTRATION": NORMAL 

; POKE 34,3 

HOME : HTAB 1: PRINT "LOADIN 



100 

110 

120 
130 
140 



150 

160 

170 

180 

190 
200 

210 



G ROUTINES" 

PRINT CHRS <4)"BLOAD ROUTIN 

ES" 

HIMEM: 36864 

CALL SETUP 

PRINT : PRINT "00 YOU HAVE A 

HI-RES PICTURE TO LOAD ?" ; CHR* 
(8); 
GET A$: IF A* < > "Y" THEN 

GOSUB 820: GOTO 190 
HTAB 1: PRINT "NAME OF PICTU 
RE ■>" TAB< 39) 
HTAB 19: INPUT "";A$: PRINT 
: PRINT "LOADING ";A* 
PRINT CHR« <4>;"BL0AD";A$;" 
,A$4000" 
CALL TNS 
GOTO 260 

POKE - 16304,0: POKE - 163 
02,0: POKE - 16300,0: POKE 

- 16297,0: RETURN 



Program 

220 VTAB 23: HTAB 8: PRINT "HIT 

ANY KEY TO CONTINUE": POKE - 

16368,0 
230 IF PEEK ( - 16384) < 128 THEN 

230 
240 POKE - 16368,0: RETURN 
250 GOSUB 220: GOSUB 210: GOSUB 

220: POKE DLAY,WT: CALL VAR: 
GOSUB 220: POKE - 16303,0: 
RETURN 
260 REM 

270 REM ** MAIN PROGRAM ** 
280 REM 

290 HOME : VTAB 5 
300 PRINT : PRINT "THESE ROUTINE 

S CAN BE USED FROM WITHIN" 
310 PRINT : PRINT "A BASIC PROGR 

AM TO DO THE FOLLOWING:": PRINT 

: PRINT 
320 PRINT "INVERSE SCREEN => MAK 

E EVERY WHITE DOT" 
330 PRINT TABt 19) "A BLACK ONE 

AND EVERY" 
340 PRINT TAB< 19) "BLACK DOT A 

WHITE ONE": PRINT 
350 PRINT "FLIP SCREEN"; TABt 16 

);"=> TURN SCREEN UPSIDE" 
360 PRINT TAB( 19) "DOWN OR TURN 

SCREEN" 
370 PRINT TABt 19) "RIGHT TO LEF 

T": PRINT 
380 PRINT "TRANSPOSE"; TABt 16); 

"«> MOVE HIRES PAGE TWO" 
390 PRINT TABt 19) ; "ON TO PAGE 

ONE": PRINT : PRINT 
400 GOSUB 220 
410 REM 

420 REM ** INVERSE EXAMPLES •* 
430 REM 
440 HOME : VTAB 6: PRINT "THERE 

ARE THREE DIFFERENT WAYS TO" 
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and so on until you are transferring the entire byte by ANDing 
it with 11111111. 

The flip routines are about as straightforward as any. To flip 
the screen from top to bottom, all you have to do is set up a 
loop that takes any given line in the top half of the screen, 
stores it somewhere, and gets its matching symmetrical Line 
on the lower hal f of the screen . The loop must then move the 
lower line to the top line, and move the top line (which was 
stored somewhere) to the lower line. 



These are the steps used in flipping row and row 191 (the 
first and last rows on the screen): 

1) Move row into the buffer. 

2) Move row 191 to row 0. 

3) Move the buffer to row 191. 

To flip right to left, a similar process is used (but right to left 
instead of top to bottom). You must flip the sequence of the 
lower seven bits (or pixels) in order to maintain the picture. 
For example, if the bit pattern 101 10101 were present in the 




450 PRINT "INVERSE THE HI-RES SC 

REEN:": PRINT : PRINT 
460 INVERSE : PRINT "TOP TO BOTT 

OM": NORMAL 
470 PRINT " WITH PROGRAMMABLE OE 

LAY": PRINT 
460 INVERSE : PRINT "RIGHT TO LE 

FT": NORMAL 
490 PRINT " WITH PROGRAMMABLE DE 

LAV": PRINT 
500 INVERSE : PRINT "FAST": NORMAL 

510 PRINT " (NO DELAY - FADES IN 

)": PRINT 
520 GOSUB 220: POKE 34,0 
530 HOME : VTAB 6: PRINT "FOR AL 

L OF THESE EXAMPLES, FIRST R 

EAD" 
540 PRINT "WHAT IT SAYS, THEN HI 

T ANY KEY TO TURN" 
550 PRINT "ON THE GRAPHICS PAGE, 
HIT ANY KEY AGAIN TO START 

THE ROUTINE, AND HIT ANY KEY 
A" 
560 PRINT "THIRD TIME TO GET BAC 

K TO THE TEXT PAGE" 
570 GOSUB 220 
580 HOME : VTAB 6: PRINT "EXAMPL 

E: INVERSE - FAST" 
590 VAR = INV: GOSUB 250: HOME 
600 VTAB 6: PRINT "EXAMPLE: INVE 

RSE - TOP TO BOTTOM W/DELAY" 
610 PRINT : PRINT "IN EACH ROUT I 

NE WHERE A DELAY IS" 
620 PRINT "POSSIBLE, ALL YOU HAV 

E TO DO IS": PRINT : PRINT 
630 PRINT "POKE 254, X (WHERE X I 

S BETWEEN 1-255)": PRINT : PRINT 



Program 

640 PRINT : PRINT "THE BIGGER TH 
E NUMBER X, THE LONGER THE 
ELAY": PRINT 
650 PRINT "HERE'S X=1":VAR = ITB 

:WT =1: GOSUB 250 
660 POKE 34,7: HOME : VTAB 9: PRINT 
"HERE'S X=60 M :WT = 60: GOSUB 
250 
670 POKE 34,0: HOME 
680 VTAB 6: PRINT "EXAMPLE: INVE 
RSE - RIGHT TO LEFT W/DELAY" 
: PRINT 
690 PRINT "HERE'S X=1":WT = 1:VA 

R = IRL: GOSUB 250: POKE 34, 7 
700 VTAB 9: PRINT "HERE'S X=80":, 

WT = 80: GOSUB 250 
710 POKE 34,0: HOME 
730 REM ** FLIP EXAMPLES ** 
740 REM 
750 VTAB 6: PRINT "EXAMPLE: FLIP 

- TOP TO BOTTOM W/OELAY" : VTAB 
9 
760 PRINT "HERE'S X=1":WT = 1:VA 

R * FTB: GOSUB 250: POKE 34, 7 
770 HOME : VTAB 9: PRINT "HERE'S 

X=i00":WT * 100: GOSUB 250 
780 POKE 34,0: HOME : VTAB 6: PRINT 
"EXAMPLE: FLIP - RIGHT TO LE 
FT W/DELAY" 
790 VTAB 9: PRINT "HERE'S X=«1":V 

AR = FRL:WT = 1: GOSUB 250: POKE 
34,7 
800 HOME : VTAB 9: PRINT "HERE'S 

X»90":WT = 90: GOSUB 250 
810 TEXT : HOME : PRINT "END OF 

DEMONSTRATION": END 
820 HTAB 1: PRINT TAB( 39);: PRINT 
: PRINT "CREATING A PICTURE" 
: POKE 230,64 
830 CALL 62450: HCOL0R- 3: FOR X 

= TO 279 STEP 2.3 
840 HPLOT 260,191 TO X,20 + 20 * 

SIN (X / 7): NEXT 
850 RETURN 
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byte at $2000 (the first position in the first row), you would 
want to store 110 101 10 at $2027 (the last position on the first 
row). 

In order to preserve the color, the MSB (Most Significant 
Bit) is not flipped. But, before $2000 could be moved you 
would have to store the byte which is currently at $2027 in a 
bufferareasoasnottoloseit. After you finish with the $2000 
byte, flip it and then store it at $2027. The steps involved with 
moving the first pair of bytes would be: 

1) Move $2027 to the buffer. 

2) Load $2000, and flip its bits, 

3) Store it at $2027. 

4) Get the byte from the buffer and flip it. 

5) Store it at $2000. 

In the case of the flip routines, the stack is used as the buffer 
(since only one byte will be there at any given time). 

SCROLL PROGRAM 

This program makes it possible to scroll hi-res page one up, 
down, right or left (seven pixels at a time), similar to the effect 
achieved in the game Ultima. 

1) Type in the SCROLL listing on page 18. 



2) BSAVE SCROLL, A$9380, L$219 

3) Load the picture to be scrolled into hi-res page one. 

4) BRUN SCROLL 

The following commands move the picture. 
A Up 
Z Down 
<- Left 
-> Right 
ESC Exit program 

If you want to use the routines from within a BASIC pro- 
gram to scroll the hi-res screen: 

1) BLOAD SCROLL 

2) CALL 38207 

3) Set HIMEM:37376 

4) Make the appropriate CALL 



Scroll Direction 

up 

down 
right 
left 



37833 ($93C9) 
37900 <$940C) 
38106 ($94DA) 
38139 ($94FB) 



NOTE: If used in conjunction with ROUTINES, set 
HIMEM:36864. 

The hi-res utilities included in the programs ROUTINES and 
SCROLL show what can be achieved by learning from imita- 
tion. What began as a simple attempt to copy the effects of 
somebody else's program resulted in a unique set of hi-res util- 
ities. Now they can become a new addition to your software 
library, and may give you ideas for your own programs. 



<& 



COLLEGiAic liliCTOCOIilPlKE* 

A JOURNAL DEVOTED TO ALL ASPECTS OF MICROCOMPUTERS IN THE UNDERGRADUATE CURRICULA 

COLLEGIATE MICROCOMPUTER is a forum for the exchange of ideas on microcomputers in all 
areas of college and university life - microcomputers in teaching, research, 
classroom, laboratory, library, studio, office, planning, athletics, and recreation. 

Articles include reviews and accounts of hardware and software uses - descriptions of 
topics, units and courses using microcomputers - results of research using 
microcomputers - analyses of experiments in microcomputer uses - student projects - 
suggestions and tips - experiences with microcomputer consulting and workshops - 
microcomputer use in office work and material preparation - and - reviews of software, 
hardware, peripherals, products, and literature. 

COLLEGIATE MICROCOMPUTER is the only journal of its type, reaching college and 
university professionals and libraries. Readers are interested in the applications of 
microcomputers to their special uses in the undergraduate environment. 

Volume One, Number One is February 1983. Subscription rates are $28.00/year for US 
and $36. 00/ year for non-OS with non-OS AIR MAIL available for $60.00/year. 

COLLEGIATE MICROCOMPUTER, Rose-Bulman Institute of Technology, Terre Haute IN 47803. 
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intwim*IIHHI*l«IHH*rni mi mi hum mi n\ hi nu-mnni low HI n>l m nnn m-i i 



RESOLUTION 




9010- 
9018- 

9020- 
9028- 
9030- 

9838- 



9048- 
9060- 

3V3U 

9060- 
9068- 
9070- 
9078- 



9098- 



20 A2 
FC60 
A3 20 
ABM 
F9E6 
40 DB 
92 85 
85 07 
00 81 
D0F7 

00 DC 
FFA2 
18 69 

TO 06 

9106 
04 90 
C8 28 
07 A9 

49 7F 
07* 



9160 

mm 

85 07 
81 96 

07 E6 
ED 60 

06 85 
18 69 

08 91 
20 04 

60 A3 
00 00 

20 85 
85 08 
E8E0 
38 26 
D0D1 
€0 85 
9106 

07 C9 



Hi<N4i minium 

A5FE 
85 06 

t&m 

9106 
09 AS 
A2 00 

08 80 
20 85 
06 C8 
90 EB 

00 m 
00 92 

09 BO 
B108 
C0D0 
FF90 

60 m 

ob no 
C8D0 
40 00 



: : -i .! : : ! r = . 



I Nil Till NHil RlVIHtm Hlhll Mil HIJHIMI HblltH 



20 m 

85 08 
85 09 
C8D0 
07 C9 

so eg 

00 92 
09W 
C0 28 
E0C0 

0185 
85 07 

C0 92 
25 FF 
E4 20 
DAC8 
20 85 

01 06 
F7E6 
EF60 



$2886 

$8AF0 
SB0D3 
SCE38 
S48C8 

K30X 
19475 

3726ft 
S870D 

SED26 
S5CS3 
S9B0F 

$F6C3 

SB075 
$2251 
SCF21 
$2F» 
$21DB 
SF689 



90A0- 
90A8- 



90C0- 

90C8- 



90D8- 

90E0- 
90E8- 



A2 00BD 
C0 92 85 
49 7F91 
F5 20 04 
El 60 to 
A2 00BD 
C0 92 85 
9106EB 
04 90 18 
04 66 FF 



00 92 
06 to 
06 C8 
90 E8 

00 te 

00 92 
06 Bl 
E0C0 
26 FF 
D0DB 



85 07 BO 
00 8106 
C0 28O0 
E0C0D0 
61 85 FF 
85 07 BO 
06 45FF 
D0EB20 
26FFB0 
C8C0 28 



90F8- 
9180- 
9108- 
9110- 
9118- 
9120- 
9128- 
9130- 
9138- 



00 D2 
FF BO 
92 85 
Aft BO 
92 85 
00 03 
03 91 
20 04 
60 00 
90 00 



60 A9 
00 92 
06 A3 
00 92 

mm 

81 06 
06 C8 
90 E6 
C4 60 
03 gfi 



00 85 
85 07 
BF 38 

85 09 

00 81 
9108 
C0 28 
FF A5 
A3 01 
CA10 



S03E9 
CC9FC 
S80FA 
S3C8F 

$4763 
SCE94 
S919D 



FF AS 
BOC0 
E5FF 
BOC0 
03 80 
AD 00 
00 ED 
FFC9 
A2 06 
F9A9 



$3D4A 
SFA9B 

$edie 

$079F 
$3290 

$E2X 
SC3E9 
SEDB2 
$8551 
$0018 
S7C61 



Hexdump 

Machine Code 



BEG 

9140* 00 85 
9148-85 07 
9150- 00 Bl 
9158- 38 E5 
9160- 91 A4 
9168- E5 FF 
9170- 06 E6 
9178- DB 20 
9180- C9C0 
9188- FC0A 



9190- 
9198- 
91A0- 
91A8- 
91B0- 
9108- 
91C0- 
91C8- 
9100- 
91D6- 



48 BD 
68 CA 
6A60 
04 85 
C0 92 
80 90 
06 69 
DE A9 
00 85 
06 18 



9000: 

FDASFD 
BOC0 92 
06 48 84 
FF A3 81 
FF9106 
A3 68 20 
FF A4FF 
04 90E6 
Q0BF60 
0BA2 06 

00 03 05 
MF1 A5 
A9 80A3 

Dp TO 06 

C8CAD0 
F2O6 09 
27 85 06 
03 85FC 
06A9 02 
69 20 99 



END:91FA 



BO 00 92 
(ft vP ntf 
FF A3 27 
0b 20 86 
A3 27 38 
85 9191 
C0 14 m 
FDASFD 
A2 00 86 
0A90 09 

FC86FC 
FC0A28 

85 0b n9 
A2 08 99 
F9 18 69 
D0ECA5 
C9 78D0 
A0 00A9 

86 08 fa 

00 92 38 



S9E6F 
$5600 

$6A43 
S7FA4 
$1009 
$5178 
$722B 
$5320 
SSA4C 
$5489 

$F030 
$9248 
$D6FF 
KtK 
$BCAE 
S2C5D 
SD6D4 
0BBC3 
$6543 
$9139 



91E0- E920C8186904C920 S23EA 

91E8- 3JEFC60BD0E9E606 SD55E 

91F0- A506C904D0DDC6FC $5047 

91F8- 00 D5 60 $£394 



Checksums 



10 


- SBADO 


210 


- S094F 


410 


- $0488 


610 


- S38A8 


810 


- $6301 


20 


- $9813 


220 


- $8861 


420 


- $A7C0 


620 


- $E681 


620 


- $3C62 


30 


- $4038 


230 


- SC307 


430 


- $F068 


630 


- $4915 


830 


- $8013 


40 


- S197D 


240 


- $8016 


440 


- $52F2 


640 


- $2862 


840 


- $6£17 


50 


- $8668 


250 


- $3559 


450 


- $0918 


650 


- $A59A 


850 


- $C52E 


60 


- $A518 


260 


- $3581 


460 


- $28A1 


660 


- S1669 






70 


- $A172 


270 


- $A520 


470 


- $C721 


670 


- $A406 






80 


- »738A 


280 


- $5895 


480 


- $C662 


680 


- S2A6D 






90 


- $E74C 


290 


- $11A7 


490 


r $0457 


690 


- $8F99 






100 


- $9600 


300 


- $3097 


500 


- $0E10 


700 


- S66A0 






110 


- $AFAD 


3X0 


- $9EE3 


510 


- $342F 


710 


- $1847 






120 


- $A357 


320 


- $1A05 


520 


- $08£2 


720 


- $6CE5 






130 


- $0154 


330 


- $9AC5 


530 


- $6A6F 


730 


- 8CE14 






140 


- $D9C8 


340 


- $00F7 


540 


- $6687 


740 


* $13BF 






150 


- $7997 


350 


- $4£9D 


550 


- *423B 


750 


- $4076 






160 


- $C90C 


360 


- $157E 


560 


- $E7E4 


760 


- $61AB 






170 


- $0998 


370 


- $30A0 


570 


- $8002 


770 


- $05EF 






180 


- $5C21 


380 


- 8A93B 


580 


- $£619 


780 


- $1FCF 






190 


- $1706 


390 


- $94F7 


590 


- $EFE4 


790 


- $362F 






200 


- $9906 


400 


- $3AFC 


600 


- $C601 


BOO 


- $8006 
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10 


- SBADD \ 


^iiecK 


MIIII> 


20 


- $9313 






30 


- $4038 


170 


- $5C94 


40 


- $2E52 


180 


- SE00E 


50 


- S0A8A 


190 


- $929A 


60 


- $E7FE 


200 


- $0884 


70 


- $E3FA 


210 


- $EC78 


eo 


- tOOA7 


220 


- $5770 


90 


- $5E46 


230 


- $50EA 


100 


- $3F87 


240 


- $393F 


110 


- *6DC1 


250 


- $60E9 


120 


- $B7E0 


260 


- $E734 


130 


- $58AE 


270 


- $994C 


140 


- $697E 


280 


- $8E38 


150 


- $31D5 


290 


- $91 2C 


160 


- $F3E8 


300 


- $179A 




"It's the latest in low-intensity 
high-resolution graphics." 



Program 

Scroll 



10 REM 

20 REM ** SCROLL DEMO ** 

30 REM 

40 TEXT : HOME 

50 VTAB 2: HTAB 1: PRINT "SCROLL 

DEMONSTRATION" 
60 POKE 34,3: VTAB 4 
70 PRINT "LOADING SCROLL": PRINT 

CHR$ (4)"BL0AD SCROLL" 
80 HIMEM: 37375 
90 PRINT : PRINT "DO YOU HAVE A 

HI-RES PICTURE TO LOAD ?" ; CHR$ 

(8); 
100 GET A$: IF A$ < > "Y" THEN 

GOSUB 270: GOTO 140 
110 HTAB 1: PRINT "NAME OF PICTU 

RE =>"; TAB< 39) 
120 HTAB 19: INPUT "";A$: PRINT 

: PRINT "LOADING "A$ 
130 PRINT CHR$ <4);"BL0AD";A$;" 

,A$2000" 
140 HOME 
150 PRINT "THIS SCROLL ROUTINE S 

IMULATES THE" 
160 PRINT "EFFECTS OF THE GAME U 

LTIMA. YOU CAN" 
170 PRINT "SCROLL THE SCREEN UP, 

DOWN, RIGHT AND LEFT." 
180 PRINT : PRINT "THE COMMANDS 

ARE:": PRINT : PRINT 
190 PRINT " A * UP": PRINT " 

Z = DOWN" 
200 PRINT " -> = RIGHT": PRINT 

" <- = LEFT" 
210 PRINT " ESC * EXIT PROGRAM" 

220 VTAB 23: HTAB 11: PRINT "HIT 

ANY KEY TO BEGIN" 
230 POKE - 16368,0 
240 IF PEEK ( - 16384) < 128 THEN 

240 
250 POKE - 16368,0: TEXT : HOME 
260 CALL 37760 
270 HTAB 1: PRINT TABt 39);: PRINT 

: PRINT "CREATING A PICTURE" 
280 POKE 230,32: CALL 62450: HCOLOR= 

3: FOR X * 20 TO 259 STEP 2. 

3 
290 HPLOT 140,171 TO X.20 + 20 * 
SIN (<X - 20) / 25.5): NEXT 
300 RETURN 
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Hexdump 



93W- 
9388- 
9390- 
9398- 
93A0- 
93A8- 
9360- 
9308- 
93C0- 
93C8- 

9300- 

9308- 
93E0- 
93E8- 
93F0- 

93F8- 



JTRJ 

9410- 
9418- 

9420- 

9428- 
9430- 
9438- 
9440- 
9440- 
9450- 
9456- 
9460- 
9460- 

9470- 
9470- 
9400- 
9488- 
9490- 
9490- 



94A6- 
9400- 
9408- 



2C50 
C0 2C 
BE 93 

93 C9 
C9 88 
95 D0 
00 DO 
2C 10 
C0 M 

68 A9 

94 M 

% m 
site 
94 m 

94ft9 
94 » 
8DD6 
20 4F 

94 M 
8D5F 

80 60 
80 6E 
60tf 
80 7F 
«07 
D6 94 
At 94 
FDBD 

69 07 
BOCfl 

VM 
C8C0 
00 DC 
FD 10 
92 85 
FE91 
E6E0 
BO 00 
85 FC 
00 92 



C0 2C52 
57C0 20 

C9C1D0 

da am 

DB03 20 
03 20F6 
20 58FC 
O0 4CD0 
08C0C9 
03 80 53 

16 8D5F 
69 80 60 
36 60 6E 
E9 8D6F 
B9 80 7F 
C0 8D ta 
94A9E8 
94 60 A9 
B9 8Dfi7 
94 8DB3 



C0 2C54 
3r 95 2& 
03 20C9 
20 0C94 
0A94 C9 
94C9 9B 
2C51C0 
03 AD 10 
80 90F9 
94 8DA7 

94 80B3 
94 80 04 
94 8BC5 
94 SOU 
94 80 83 
94 A9 87 
8D7D94 
BF8D53 
94 m 38 
94A9E9 



94 80 
94 80 
94 80 
94 m 
80 A2 
A9CA 

ezw 

C0 92 

MOD 
92 85 

mm 

20 00 
A2B9 
69 20 
FC85 
FCCB 
C0D0 
92 85 
8A 18 
18 69 



64 94 
C5 94 
C&94 
08 80 

94 rft 

80 70 
BD00 
85 FC 
00 92 
FE8A 

81 FE 
F7ES 
60 00 
85 FF 
FE AB 
CI 28 
OF m 
FOBO 
69 09 
20 85 



m 18 
A9 69 
A3 06 
03 94 
C0 8D 
94 20 
92 05 
8ft 10 
05 FF 
30 E9 

91 FC 
E0B9 

92 85 
BDC0 
00 Bl 
00 F7 
A2 0B 
C0 92 
MBD 
FFBO 



$7080 
SS92A 
(3807 

S4A49 



077FD 
SAA32 
SC9E6 
SC57B 
S037A 

$5989 
$7511 

MT94L 

IrfiB 
SDC3E 
S4A0E 

SIM? 
SCFA& 
SWftl 
S146D 

$1009 
$6507 
$8E7i 
$1050 
$D15C 
$471F 
SF3E2 
*C5A7 
SA344 
$7080 

$7690 



94C0- C89285FI8A3BE9B9 
94C8- M At 00 Bl FC 91 FE CO 
9400- C028O0F7E8E007D0 
9400- CF 60 09 00 80 25 95 A9 
94E0- CO SO 2F 95 GO 30 95 80 



$5232 
S61E0 
SF4B5 
S03AB 

IC97F 
$8616 
S3C10 
$3404 

SB45E 
$7C5E 
S0EEA 
S65BA 
J5F11 



94E8- 2995A9288032%A9 


SC368 


94F0- 8880X9580359520 


SF20A 


94F8- 189560A9278D2S95 


$5DE0 


9500- A9 88 80 2F 95 80 30 95 


$142C 


9508- 80 29 95 A9 C8 80 2C 95 


$0C5t 


9510- Bfl3595A9FF6B3295 


$6881 


9518- A200BD009285FOBO 


SA498 


9520- CO 92 85 FC A0 00 81 FC 


SAE&A 


9528- 48 C8 Bl FC 86 91 FC C8 


$739F 


9530- C8C028O0F56B6B91 


SCC0E 


9530- FCE8E0C0O0DC&0A9 


SC3F8 



Scroll 

BEG: 9380; EM): 9597 

9540- 03 A8 85 FC fi9 04 85 Ft $250E 

9546- tB FC A2 08 93 C0 92 C6 SDF04 

SS50- CA DB F9 18 69 80 90 F2 SAA31 

9556- C6 FE D0 EC A5 FC 69 27 SOE09 

9560- 85 FC C9 78 D0 DE A9 03 S972C 

9568- 85FBA000A90085FC S3C0C 

9570- PB 02 85 FE AS FC 18 69 SA151 

9578- 20 99 00 92 38 E9 20 C6 $1300 

9580- 18 69 04 C9 20 30 EF C6 $7E6A 

9568- FE 00 E9 E6 FC AS FC C9 $7040 

9590- 04D0DDC6FBO0D560 $743E 
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iooo mm* 






1010 t 




* 


1020* 


HI-RES ROUTINES 


1030 * 




« 


1040 » 


By: Nike Scaiilin * 


1050 « 




« 


1060 «****#« 






1060 START 


.EC $9000 




1100 PTRl 


.EC 906 


2 BYTE POINTER 


1110 PTR2 


mm 


2 BYTE POINTER 


1120 GEN1 


.EQ SfFC 


GENERAL STORAGE 


1130 GEK2 


.E8 SFD 


GENERAL STORAGE 


1140 DELAY 


.EQSFE 




1150 SHIFT 


.EQSFF 




1160 TABLE 


.EQ $0300 


TO BE USED BY FLIP (R TO L) 


1170 HIRESH 


,EQ $9200 


TABLE OF HI-RES HIBYTES 


1180 H1RESL 


.EG HIR£SH+$CO TABLE OF HI-RES LOBYTES 


1190 WIT 


.EQ SFCA8 




1210 * 






1220 * SET UP HI-RES BASE ADDRESS TABLE 


1230 * 






1250 SETUP 


JSR CALCLO 


CALC BASE HI-RES ADDRESSES 


1260 


RTS 




1280 * DELAY LOOP 




1300 DELAYLP 


LDA DELAY 




1310 


JSR WAIT 




1320 


RTS 




1340 * 






1350 ♦ TRAHSPOSE - FAST 




1360 * 






1380 TRANS 


LDA #0 




1390 


STA PTR1 


LOBYTE OF PAGE1 PTR 


1400 


STA PTR2 


LOBYTE OF PAGE2 PTR 


1410 


LDA #$20 




1420 


STA PTR1+1 


HIBYTE OF PAGE1 PTR 


1430 


LDA #$40 




1440 


STA PTR2+1 


HIBYTE OF PAGE2 PTR 


1460 TLOOP 


LDV #0 




1470 TLP2 


LDA CPTR2), 


Y LOAD FRQH PAGE2 


1480 


STA (PTR1), 


Y STORE OH PAGE1 


1490 


INY 




1500 


BNE TLP2 


Km 0FF BYTES 


1520 


INC PTR1+1 


INC HIBYTE OF PTRl & PTR2 


1530 


ISC PTR2+1 




1540 


LDA PTR1+1 




1550 


CKP#S40 


DONE WITH PAGET 


1560 


BNE TLOOP 


IF HOT, HOVE 



Program 



1570 RTS 

1590 * 

1600 * TRANSPOSE - TOP TO BOTTON W/DELAY 

1610 « 

1630 TRANSTB LDX #0 START WITH TOP LIKE 

1640 T8TBLPI LDA HI8ESL,X GET LOBYTE 

1650 STA PTRl 

1660 STA PTR2 

1670 LDA HIRESH, X GET HIBYTE OF LINE (PAGED 

1680 STA PTR1+1 

1690 CLC 

1700 ADC #$20 GET HIBYTE OF LINE (PAGE2) 

1710 STA PTR2+1 

1730 LDY #0 HOVE ONE LINE ($26 BYTES) 

1740TRTBLP2 LDA (PTS2),Y 

1750 STA (PTRD,Y 

1760 INY 

1770 CPY #$28 

1760 BNE TRTBLP2 

1600 JSS DELAYLP DEUY LOOP 

1620 IXX INCREASE LINE NUMBER 

1830 CPX #$C0 DONE HTH SCREEN? 

1840 BNE TRTBLP1 IF NOT, HOVE NEXT LINE 

1850 RTS 

1670 * 

1880 » TRANSPOSE - RIGHT TO LEFT W/DELAY 

1890 * 

1910 TRANSRL LDY #0 START WITH HORZ. COLUKN 

1920 TRRLLP1 LDA #1 SET LSB 

1930 STA SHIFT 

1940 TRRLLP2 LDX #0 START WITH VERT. LINE 

1960 TR6LLP3 LDA HIRESH, X GET HIBYTE (PAGED 

1970 STA PT81+1 

1960 CLC 

1990 ADC #$20 GET HIBYTE (PAGE2) 

2000 STAPTR2+1 

2010 LDA HIRESL.X GET LOBYTE 

2020 STA PTRl 

2030 STA PTR2 

2050 LDA <PTR2),Y GET BYTE AT ROW X,COL Y (PAGE2) 

2060 AND SHIFT CUT OFF PART OF BYTE 

2070 STA (PTRD,Y PUT ON PAGE1 

2060 IHX INC ROW COUNTER 

2090 CPX #$C0 DONE WITH COLUNN? 

2100 BNE TRRLLP3 IF NOT, DO NEXT BYTE 

2120 JSR DELAYLP DELAY LOOP 

2140 SEC 



P.O. Box 44549, Tacoma, WA 98444 



CORE I, no. 2 



Page 19 



RESOLUTION 




Program 



ROL SHIFT 
BCC TRRLLP2 
IKY 

CPY #S28 
BNE TRRLLP1 
RTS 

FAST 

LDA #$20 
STA PTR1+1 
IDA #0 
STA PTR1 
TAY 



START WITH Y=0 
LDA <PTR1),Y LOAD BYTE 
EOR #$7F FLIP ALL BITS EXCEPT HSB 
STA <PTR1),Y STORE IHVERSED BYTE 

m 

DONE WITH SFF BYTES? 

IF YES, INC KIBYTE OF PTR 



2150 

2160 

2180 

2190 

2200 

2210 

2230 * 

2240 * INVERSE 

2250 * 

2270 INVERSE 

2280 

2290 

2300 

2320 

2330 INVLP 

2340 

2350 

2360 

2370 

2390 

2400 

2410 

2420 

2430 

2450* 

2460 ♦ INVERSE 

2470 # 

2490 IHVTB 

2500 ITBLP1 

2510 

2520 

2530 

2550 

2560 ITBLP2 

2570 

2580 

2590 

2600 

2610 

2630 

2650 

2660 

2670 

2680 

2700* 

2710 * INVERSE RIGHT TO LEFT W/OELAY 

2720 * 



INC NUMBER OF PIXELS TO SHOW IN 

CURRENT COLUHN 

IF-S THEN INC COLUMN COUNTER 

DONE WITH SCREEN? 

IF NOT, START NEXT COLUHN 



HI8YTE OF PTR 



LOBYTE OF PTR <PTR=$2000) 



BNE INVLP 
INC PTR1+1 
LDA PTR1+1 
CHP#S40 
BNE INVLP 
RTS 



DONE WITH PAGE? 

IF NOT, INVERSE ANOTHER SFF BYTES 



TOP TO BOTTOK W/DELAY 

LDX #0 START WITH TOP ROW 

LDA HIRESH,X GET HIBYTE 

STA PTR1+1 

LDA HIRESL,X GET LOBYTE 

STA PTR1 

LDY #0 

LDA (PTR1>,Y LOAD BYTE IN ROW X, COL Y 

EOR #S7F FLIP ALL BITS EXCEPT HSB 

STA <PTR1),Y STORE INVERSED BYTE 

IHY 

DONE WITH ROW? 

IF HOT, DO NEXT BYTE 

DELAY LOOP 

IHC ROW COUNTER 

DONE WITH SCREEN? 

IF NOT, DO NEXT ROW 



CPY #$28 
BHE ITBLP2 
JSR DELAYLP 
INX 

CPX #3C0 
BNE ITBLP1 
RTS 



2740 IHVRL 


LDY #0 START WITH COLUHN 


2750 INVRLLP1 LDA #1 INITIALLY INVERSE FIRST BIT 


2760 


STA SHIFT 


2770 INVRLLP2 LDX #0 START WITH TOP ROW 


2760 IHVRLLP3 LDA HIRESH.X GET HIBYTE 


2790 


STA PTRH1 


2800 


LDA HIRESL,X GET LOBYTE 


2810 


STA PTR1 


2830 


LDA <PTR1),Y GET BYTE AT ROW X, COL Y 


2840 


EOR SHIFT FLIP SOKE BITS 


2850 


STA (PTRD.Y STORE BYTE 


2860 


INX INC ROW COUNTER 


2870 


CPX #SCO DONE WITH COLUHN? 


2880 


BHE INVRLLP3 IF NOT, DO NEXT ROW 


2900 


JSR DELAYLP DELAY LOOP 


2920 


CLC 


2930 


ROL SHIFT INCH NUHBER OF FLIPPED BITS 


2940 


ROL SHIFT 


2950 


BCS IRLLP5 


2960 


ROR SHIFT 


2970 


BNE INVRLLP2 


2980 IRLLP5 


INY INC COLUHN COUNTER 


2990 


CPY #£28 DONE WITH SCREEN? 


3000 


BHE IHVRLLP1 IF NOT, DO NEXT COLUHN 


3010 


RTS 


3030 * 




3040 » FLIP 


- TOP TO BQTTOH W/DELAY 


3050 * 




3070 FLIPTB 


LDA *0 START WITH VERT. LIKE 


3080 


STA SHIFT 


3090FLOOP 


LDX SHIFT GET VERT. LINE NUHBER 


3100 


LDA HIRESH.X GET HIBYTE OF ORG SOW 


3110 


STA PTRlfl 


3120 


LDA HIRESL.X GET LOBYTE OF ORG ROW 


3130 


STA PTR1 


3150 


LDA #SBF CALC DEST ROW HQHBER 


3160 


SEC 


3170 


SBC SHIFT 


3180 


TAX 


3190 


LDA HIRESH,K GET HIBYTE OF DEST ROW 


3200 


STAPTR2+1 


3210 


LDA HIRESL,X GET LOBYTE OF DEST ROW 


3220 


STA PTR2 


3240 


LDY #0 HOVE ORG ROW -> TABLE 


3250 FLP2 


LDA (PTR2),Y DEST ROW -> ORG ROW 


3260 


STA TABLE TABLE -> DEST ROW 


3270 


LDA <PTR1),Y 


3280 


STA <PTR2),Y 


3290 


LDA TABLE 


3300 


STA (PTR1),Y 


3310 


IHY 


3320 


CPY #sS28 DONE WITH ROW? 
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3350 
3370 
3380 
3390 
3400 
3410 
3430* 
3440 # FLIP 
3450 * 
3470 FLIPRL 
3460 
3490 FLP3 



3540 
3550 
3560FIKA1N 



3560 

3590 

3600 

3620 

3630 RP4 

3640 

3650 



3670 
3660 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3760 

3790 
3600 
3610 
3820 



3840 
3660 
3880 




Program 



BHE FLP2 
JSR DELAYLP 
IHC SHIFT 
LDA SHIFT 
CHP #560 
BKE FIOOP 
RTS 



IF HOT, HOVE NEXT BYTE 

DELAY LOOP 

IHC VERT LIKE NUMBER 

FLIPPED TOP HALF OF SCREEH? 
IF HOT, FLIP HEXT PAIR OF ROWS 



RIGHT TO LEFT W/DELAY 



3900 

3910 
3920 



LDA #1 

LDX #6 

STA TABLE, X 

ASL 

DEX 

BPLFLP3 

LDA #0 

STA &EN2 

LDX GEN2 

LDA HIRESH,X 

STA PTR1+1 

LDA HIRESL.X 

STA PTR1 

LDY#0 

LDA <PTR1),Y 

PHA 

STY SHIFT 

LDA #$27 

SEC 

SBC SHIFT 

TAY 

LDA (PTR1),Y 

JSR FLIPBITS 

LDY SHIFT 

STA (PTRD.Y 

LDA #$27 

SEC 

SBC SHIFT 

TAY 

PLA 

JSR FLIPBITS 
STA <PTR1>,Y 
IHC SHIFT 
LDY SHIFT 
CPY #$14 
BHEFLP4 
JSR DELAYLP 
IHC GEH2 
LDAGEH2 
CHP #$C0 
BHE FLHAIK 
RTS 



SET UP FLIP BIT TABLE 



START AT VERT. LIKE 

GET VERT, LIKE HUHBER 
GET MBYTE 

GET LOBYTE 

START WITH LEFT HOST BYTE IH LIKE 

STORE LEFT BYTE 

SAVE OFFSET LOCATIOK OF LEFT BYTE 

CALC ITS SYHETRICAL POSITIOH 



GET BYTE FROK THIS POSITIOH 

FLIP ITS BITS 

GET ORG HORZ. POSITION 

STORE FLIPPED BYTE 

CALC WHERE SECOKD BHE CAKE FROH 



GET ORIGINAL BYTE 

FLIP ITS BITS 
STORE RIPPED BYTE 
IHC HORZ. COUNTER 

RIPPED HALF OF ROW? 
IF HOT, FLIP HEXT PAIR 
DRAY LOOP 
GET VERT. LINE HUHBER 

DONE WITH SCREEH? 
IF NOT, RIP NEXT ROW 



3940 FLIPBITS LDX #0 



FLIP ALL BITS EXCEPT HSB 
BITS: 76543210 -> 70123456 



PRESERVE HSB (COLOR) IN CARRY 



3950 STX GEN1 

3960 ASL 

3970 PHP 

3990 LDX #6 

4000 FLB1 ASL 

4010 BCC FLB2 

4020 PHA 

4030 LDA TABLE, X 

4040 ORA GEH1 

4O50 STA GEH1 

4060 PLA 

4070 f LB2 DEX 

4060 BPL FLB1 

4100 LDA GEN1 

4110 ASL 

4120 PLP 

4130 ROR 

4140 RTS 

4160 * 

4170 « ROUTINE TO GENERATE HIBYTE AND LOBYTE TABLE OF 

4160 * HI-RES PAGE1 BASE ADDRESSES 

4190 1 

4210 CALCLO LDA #0 

4220 TAY 

4230 STA PTR1 

4250 CL1 LDA #4 

4260 STA PTR2 

4270 CL2 LDA PTR1 

4260 CL3 LDX #6 

4290 CL4 STA KIRESL,Y 

4300 IKY 



RECALL HSB IK CARRY 



4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 

4420 

4440 CALCHI 

4450 

4470 

4460 CHI 

4490 

4500 CH2 

4510 

4520 CH3 



DEX 

BHE CL4 
CLC 

ADC #$80 
BCCCU 
DECPTR2 
BHECL2 
LDAPTR1 
ADC #$27 
STAPTR1 
CHP #$76 
BHECL1 
LDA #3 
STA GEH1 
LDY #0 
U)A#0 
STA PTR1 
LDA #2 
STAPTR2 
LDAPTR1 



CALC HIBYTE FOR HI-RES BASE ADDS 
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RESOLUTION 




Program 



4530 CH4 


CLC 


4630 


DEC PTR2 


4540 


ADC #$20 


4640 


SHE CH3 


4550 


5TA HIRESH.Y 


4650 


INC PTR1 


4560 


SEC 


4660 


LDA PTR1 


4570 


SBC #$20 


4670 


CKP #4 


4580 


IHY 






4590 


CLC 


4680 


BNECH2 


4600 


ADC #4 


4690 


DEC GEM 


4610 


CUP #$20 


4700 


BNE CHI 


4620 


BHI CH4 


4710 


RTS 



Highest Quality, Lifetime Guarantee! 

DISKETTES 



65 



4) A • \J*J 5 1 /4" soft sectored 

• Our own custom-manufactured brand 

• Certified for Singie & Doubie Density 

• Can be used double-sided on Apple, 
Atari, IBM, and many other computers 

• Hub ring, tight seams, loose-fitting 
jackets, white Tyvek sieeves 

* order in any quantity from 1 up 

* $155for100-$149forbulkpakof 
100 (sleeves & labels separate, 
write-protect notch on one side) 

* add $2 to total order for shipping 

Hard plastic stand-up 10-diskette carrying 
cases $2.75 each, 4 for $10 {specify 
choices: beige, black, blue, green, grey, 
red, yellow) 

Smoked-plastic jumbo-size flip-top 75- 
diskette file cases $19.50 each 

VF ASSOCIATES 



6327 Western Ave., N.W., Wash., DX. 
(202) 363-1313 



20015 



Program 



Scroll 



1000 *###*##»#*##«##«#»»*****#*#*#« 
1010 * * 

1020 * HI-RES SCROLL * 
1030 * * 

1040 » By: Mike Scanlin ♦ 
1050 * » 

1060 »«**#♦**♦***#*«******«**#***** 

1080 START . OR «3ao 

1100 GEH1 .EQ SFB 

1110 PTR1 .EQ SFC 

1120 PTR2 .EQ $FE 

1130 HOKE .EQ SFC58 

1140 KYBD .EQ SC000 

1150 STROBE .EQ 9C010 

1170 * TABLE OF HI-RES PAGE1 BASE ADDRESSES 

1180 * HIBYTES AT $9200, L0BYTES AT SS2C0 

1200 HIRESH .EQ $9200 

1210 HIRESL .EQ HIRESH+SC0 

1230 BIT SC050 SELECT GRAPHICS NODE 

1240 BIT SC052 SELECT FULLSCREEH H0DE 

1250 BIT $C054 SELECT PAGE1 

1260 BIT SC057 SELECT HI-RES 

1280 * CALCULATE HI-RES PAGE1 BASE ADDRESSES 

1300 JSR CALCL0 

1320 » 

1330 * PROGRAM STARTS HERE 

1340 » 

JSR GETAKEY 

CHP #SC1 'A'=UP 



1360 CX0 

1370 

1380 

1390 

1400 CK1 

1410 

1420 

1430 CK2 

1440 

1450 

1460 CK3 

1470 

1460 

1490 CK4 

1500 

1510 

1520 

1530 

1540 

1560 GETAKEY 

1570 GL00P 

1580 



BNE CK1 
JSR 5CRUP 
CHP *5DA 
BHECK2 
JSR SCRDWN 
CHP #988 
BHE CK3 
JSR SCRRGHT 
CKP #$95 
BNECK4 
JSR SCRLEfT 
CMP #$9B 
BHE CK0 
JSR HONE 
BIT SC051 
BIT STROBE 
JHP S03D0 
LDA STROBE 
LDA KYBD 
CHP#S60 



'Z'=D0«K 



'<-'=RIGHT 



->'=LEFT 



'ESC' EXITS 



SELECT TEH NODE 
CLEAR KEYBOARD STROBE 
EXIT TO BASIC 
CLEAR KEYBOARD STROBE 
CHECK KEYBOARD 
KEY PRESSED? 
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RESOLUTION 






■* 


l^rrf^www-nwvii 




ig&^g^S^d 






j 


rToyidni 




==TS^S*^s$*' 






2110 


Scroll 


1590 


BCC GL00P 


IF HOT, GO SACK 


LDA #0 


1600 


RTS 




2120 


STA 0P2+1 


1620* 






2130 


LDA #7 


1630 * ALL 


FOUR ROUTINES USE SELF MODIFYING CODE 


2140 


STA 0P3+1 


1640 • 






2150 


LDA #SC0 


1660 SCRUP 


LDA #0 


SCROLL UP 


2160 


STA 0P4+1 


1670 


STA VERT+4 




2170 


LDA #SCA OPCODE FOR 'DEI' 


1680 


STA SAVETQP+1 


2180 


STA IHX 


1690 


LDA #518 


OPCODE FOR 'CLC' 


2200 * 




1700 


STA CCARRY1 




2210 * VERTICAL SCROLLING ROUTINE 


1710 


STA CCARRY2 




2220 * 




1720 


LDA #S69 


OPCODE FOR 'ADC #' 


2240 VERT 


JSR SAVETOP SAVE TOP 7 OR BOTTOM 7 ROWS 


1730 


STA ADD1 




2250 


LDX #0 FIRST DESTINATION LINE = 


1740 


STA ADD2 




2260 BEGIN 


LDA HIRESH,X GET HIBYTE OF DEST. LINE 


1750 


LDA #538 


OPCODE FOR 'SEC 


2270 


STA PTR1H 


1760 


STA SCARRY1 




2260 


LDA HiRE5L,X GET LOBYTE OF DEST. LINE 


1770 


STA SCARRY2 




2290 


STAPTR1 


1760 


LDA #$E9 


OPCODE FOR 'SBC #' 


2300 


TXA 


1790 


STA SUM 




2310 CCARRY1 


CLC 


1600 


STA SU82 




2320 ADD1 


ADC #7 GET VERT LINE NUKBER FOR 7 LINES 


1810' 


LDA#SB9 




2330 


TAX BELOW OR ABOVE CURRENT LIKE * 


1820 


STA 0P1+1 




2340 


LDA HIRESH,X GET MBYTE OF ORIGINAL LINE 


1830 


STA 0P2+1 




2350 


STA PTR2+1 


1640 


LDA #SCO 




2360 


LDA HIRESL.X GET LOBYTE OF ORIGINAL LINE 


1650 


STA 0P3tl 




2370 


STA PT82 


1660 


LDA #7 




2380 


TXA 


1870 


STA 0P4+1 




2390 SCARRY1 


SEC 


1860 


LDA #SE8 


OPCODE FOR 'INX' 


2400 SUB1 


SBC 17 


1890 


STA IHX 




2410 


TAX 


1900 


JS8 VERT 




2420 


LDY #0 


1910 


RTS 




2430 LP3 


LDA <PTR2>,Y LOAD FROM ORIGINAL LINE 


1930 SCRDWN LDA #SBF 


SCROLL DOWN 


2440 


STA (PTRD.Y STORE IN DESTINATION LINE 


1940 


STA VERTt4 




2450 


IKY 


1950 


LDA #£B9 




2460 


CPY #328 DONE WITH LINE? 


1960 


STA SAVETOP+1 


2470 


BNE LP3 IF NOT, GET NEXT BYTE 


1970 


LDA #S36 


OPCODE FOR 'SEC 


2480 lift 


IHX INC VERT LINE COUNTER 


1980 


STA CCAR8Y1 




2490 0P1 


CPX #SB9 DONE WITH SCREEN? 


1990 


STA CCARRY2 




2500 


BNE BEGIN IF NOT, DO THE KEXT LINE 


2000 


LDA #$E9 


OPCODE FOR 'SBC #' 


2520 0P2 


LDX #SB9 RECALL TOP 7 OR BOTTOH 7 LINES 


2010 


STA ADD1 




2530 RCL00P1 


LDA HIRE5H,X FROM PAGE2 


2020 


STA ADD2 




2540 


STA PTR1+1 


2030 


LDA m& 


OPCODE FOR 'CLC 


2550 


CLC 


2040 


STA SCARRY1 




2560 


ADC #$20 


2050 


STA SCAR8Y2 




2570 


STA PTR2+1 


2060 


LDA #S69 


OPCODE FOR 'ADC #' 


2580 


LDA HIRESL.X 


2070 


STASUB1 




2590 


STA PTR1 


2080 


STA S0B2 




2600 


STA PTR2 


2090 


LDA #6 




2610 


LDY #0 


2100 


STA 0P1+1 




2620 RCLC0P2 


LDA <PTR2),Y continued on page 39 
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By Robb Canfield 

Requirements: 
Apple n with 48K 
At least one disk drive 
Blank, initialized disk 

GOTO Label is a utility which provides the user with the 
capacity to use true labels instead of line numbers. It was 
developed out of the frustration caused by constandy having 
to remember, by line number, the location of routines in long 
programs. (SOUND at 10006, GET INPUT at 20000, and 
COLLISION at 15060, etc.). 

GOTO Label allows labels to be defined and branched to 
through the use of the ampersand command. (A branch in 
Applesoft is any command that alters the flow: GOTO, 
GOSUBandON.) 

The companion program, Replace, will substitute normal 
line numbers for all of the labels, thus converting the program 
to a normal Applesoft file for later compilation. 

Entering GOTO Label 

To place GOTO Label in memory, follow these steps: 

1) Boot the 3.3 master disk. 

2) Clear the Applesoft program from memory. 
FP 



3) Enter the monitor. 
CALL -151 

4) Enter the hexadecimal listing (if you have an assembler, 
enter the source code listing). 

5) Return to BASJC. 
3DBG 

6) Save GOTO Label. 

BSAVE GOTO LABEL,A$803,L$143 

7) Return to BASIC. 
3D9G 

8) Save the program. 

How to Use 
GOTO Label 

To activate GOTO Label, simply BRUN GOTO LABEL. 

Any Applesoft program in memory at this dme will be 
destroyed. When the prompt reappears (]), the program is 
ready. All of the normal Applesoft commands are available, 
with the additional advantage of labels. 

There are two terms for labels: the source label and the tar- 
get label. The source label follows a branch command 
(GOSUB, GOTO, or ON). The target label is where the pro- 
gram should branch. In other words, the source label is the 
FROM location and the target label is the TO location. 
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Source Labels 

The source label must be enclosed in quotes and must fol- 
low an ampersand branch command (&GOTO, &GOSUB and 
&ON). When the program finds a quote, all characters, 
including spaces, are accepted until the end of the line is 
reached or until a control character is encountered. If no quote 
is found after the branch command, Applesoft will handle it 
normally. Below are some examples. 

10&GOTO"HELP" 

This line will GOTO the label "HELP". 

20 &GOSUB 23 



[n this line, the program will GOSUB to line 23. Since it is 
not enclosed in quotes, it is not a label. 

30 &GOTO SOUND 

A SYNTAX ERROR will be generated by this line because 
it does not contain a line number and is not enclosed in quotes. 

40 &ON A-4 GOTO 23,"HELLO", 45. "SOUND" 

Line 40 will GOTO any of the following: line 23, the 
"HELLO" label, line 45, or the "SOUND" label. As this 
example shows, line numbers and labels can be freely mixed 
within an ON statement. Only the ON is preceded by an 
ampersand; the branch type (GOTO/GOSUB) is never pre- 
ceded by an ampersand when inside an ON statement. 



Program 











1000 


















1010 


* HANDLES THE AMPERSAND COMMANDS 










1020 
1030 
1040 


« FOR (.GOTO, 


&GDSUB AND (.ON 










































1050 

1060 


* APPLESOFT 


TOKENS. 




























1070 




.OR 


$803 












1DB0 




,TF 


GOTO LABEL 1 


0OAB- 








1090 


GOTO . T 


.EQ 


SAB 


GOTO COMMAND 


00BO- 








1100 


GOSUB. T 


.EQ 


;bo 


GOSUB COMMAND 


00B4- 








1110 


ON.T 


.EQ 


S134 


THE ON COMMAND 


0022- 








1120 


QUOTE 


.EQ 


$22 




00B2- 


" 






1130 


rf.m.t 


.EO 


SB3 




00AF- 








1140 


AMPER. T 


.EQ 


SAF 




0C3A- 








1150 


EOL 


.EO 


$3A 


(A COLON ":") 


0021- 








1160 


LA BEL. T 


,EQ 


521 


DETEMINES LEGAL LABELS 


0020- 








1170 


SPACE. T 


.EO 


$20 


A SPACE 


002C- 








iiso 

1190 


COMMA 


.EQ 


$20 


A COMMA 
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* PAGE 2ERO EQUATES. 




















009B- 








1220 


LQWTR 


.EQ 


$9B 




009D- 








1230 


FAC 


.EQ 


$9D 


TEMP VARIABLE 


0OA0- 








1240 


FIRST. OFFSET 


.EQ FAC* 


3 


C067- 








1250 


TXTTAB 


.EO 


$67 




0OB8- 








1260 


TXTPTR 


.EQ 


$B8 




00AO- 








1270 


TOKEN. FOUND 


EQ FAC+3 
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12B0 
1290 


CURLIN 


.EQ 
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CURR. LINE # 
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1310 
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00B1- 
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CHRGET 


.EQ 


SB1 


GET NEXT CHAR. 


D959- 
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GO 2 


.EQ 


$D959 


BASIC ROUTINE 


DEC9- 








1340 


SYNERR 


.EQ 


$DEC9 


? SYNTAX ERROR 


D9A6- 








13 50 


REMN 


.EQ 


$D9A6 




D64B- 








1360 


SCRATCH 


.EQ 


$D64B 


CLR VAR i. PTRS 


D93E- 








1370 


GOTO.FP 


.EQ 


SD93E 


NORM GOTO CMND 


DB28- 








1380 


DO. NORMAL . EQ $DB2B 


DO CMD IN A-REG 


D7D2- 








1390 


NEHSTT 


.EQ 


$D7D2 


DO NEW STATEMENT 


D3D6- 








1400 


CHKMEM 


.EQ 


$D3D6 


GQSUES TOO DEEP? 


D9FB- 








1410 


ONCNT 


.EQ 


$D9F8 


NORM ON. . .CMD 


E6FB- 








1420 


GETBYTE 


.EQ 


$E6F8 


EVAL FORMULA 


D4 3C- 








1430 


RESTART 


.EQ 


$D4 3C 


ENTER APPLESOFT 


03F5- 








1440 
1450 


AMPER 


.EQ 


$3F5 


AMPERSAND VECTOR 
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INITIALIZE. AMPERSAND 
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AD 


F5 


03 
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TRANSFER OLD £ 
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BD 


53 


08 
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OLD. AMPER 


0B09- 


AD 


F6 


03 


1500 




LDA 
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8D 


54 


OB 
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STA 
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AD 


F7 


03 


1520 




LDA 
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0812- 


8D 


S5 


03 
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STA 


OLD.AMPER+2 


0615- 


A9 


4C 




1540 




LDA 
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A JUMP COMMAND 


0817- 


BD 


F5 


3 


1550 




STA 
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A9 


32 
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LDA 


(AMPERSAND. CONTROL 


0B1C- 


SD 


F6 


03 


1570 




STA 


AMPER+1 




081F- 


A9 


08 




15B0 




LDA 


/AMPERSAND. CONTROL 


0821- 


fn 


F7 


03 


1590 




STA 


AMPER+2 




0824- 


A9 


42 
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LDA 


1 END. PROGRAM* 1 RESET PTRS 
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85 
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NMN 
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fe 
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kti. 


F5 


0? 


3D 
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US 


AD 


F6 


03 


8D 


54 


08 


AD 


SC9A9. 




0810- 


F7 


03 


8D 


55 


08 


A 9 


4C 


3D 


$8404 




0818- 


F5 


03 


A9 


32 


3D 


F6 


03 


A9 
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0320- 


08 


8D 


F7 


03 


A9 


42 


35 


67 


S3B9F 




0828- 


A9 


09 


85 


68 


20 


4B 


D6 


4C 


8D0AE 




08 30- 


3C 


D4 


C9 


B4 


F0 


46 


C9 


AB 


501B3 




0838- 


F0 


04 


C9 


B0 


DO 


15 


48 


A0 


$1687 




0840- 


01 


Bl 


B8 


C9 


22 


F0 


04 


68 
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0848- 


4C 


28 


08 


68 


09 


AB 


F0 


06 


5DC45 




.0 8 5 0- 


4C 


5F 


08 


4C 


FF 


FF 


2U 


Bl 


S243A 
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00 


20 


CF 


08 


4C 


5C 


D9 


20 


S490A 




0850- 


Bl 


00 


A9 


03 


20 


D6 


D3 


A5 


SA21D 




0868- 


B9 


48 


A5 


B8 


48 


A5 


77 


48 
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03-70- 


AS 


76 


48 


A9 


B0 


48 


20 


59 


$9048. 
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08 


4C 


Vj2 


D7 


20 


Bl 


00 


20 


S7B28 
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F8 


E6 


43 


C9 


E0 


F0 


7 


C9 
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0888- 


AB 


F0 


03 


4C 


C-9 


DE 


C6 


Al 


SA205 




0890- 


DO 


12 


m 


01 


Bl 


B8 


09 


22 


S2B55 




0893- 


F0 


03 


AC 


FC 


09 


63 


C9 


B0 


SFA4C 




C8A0- 


F0 


BD 


DO 


B2 


20 


Bl 


00 


F0 


S6C2F 




0.8A8- 


24 


C9 


22 


F0 


0B 


20 


Bl 


00 


S8DCF 




08B0- 


F0 


IB 


C9 


2C 


DO 


F7 


F0 


D6 


$85FD 




0BB3- 


20 


Bl 


00 


F0 


10 


09 


22 


DO 


$ACF3 




08C0- 


F7 


2U 


Bl 


00 


f0 


07 


09 


2C 


$4275 




08C8- 


F0 


C4 


4C 


C9 


D'E 


68 


60 


A0 


SD23B 




0SDO- 


00 


C8 


Bl 


B8 


FO 


F4 


C9 


22 


$20 AC 




0BD8- 


EG 


F0 


C9 


2.1 


9 


"3 


88 


84 


$D284 




08EO- 


A0 


A5 


67 


35 


9B 


A5 


68 


8 5 


S163A 




08E8- 


9C 


A0 


00 


Bl 


9B 


48 


ca 


Bl 


539B3 




08F0- 


9B 


48 


DO 


04 


68 


68 


LB 


50 


S40E0 




08F8- 


C8 


C8 


C8 


Bl 


9B 


C9 


B2 


F0 


SAC6D 




0900- 


09 


63 


S3 


9C 


68 


35 


9B 


4C 
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E9 


08 


C8 


Bl 


9B 


F0 


F2 


G9 
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0910- 


21 


90 


F? 


88 


A6 


A0 


08 


E8 
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0916- 


Bl 


9B 


C9 


20 


90 


OF 


84 


9S 


S9E4F 




0920- 


36 


9F 


A4 


9F 


Dl 


B8 


DO 


D9 


$341S 




0928- 


A4 


9E 


4C 


16 


09 


8A 


A3 


Bl 


57778 




O-93 0- 


BS 


C9 


22 


F0 


04 


C9 


20 


B0 


$54FA 




09 38- 


CS 


68 


85 


SO 


68 


85 


9B 


38 


$5E86 
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60 


00 


00 


30 


3F 
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Target Labels 



The target label will always follow a remark statement and 
should not be enclosed in quotes. The program handles target 
labels by ignoring all characters until a normal ASCII charac- 
ter is found (punctuation and upper- and lower-case letters). 
Then all characters, including spaces, are accepted until the 
end of the line is reached or until a control character is encoun- 
tered. 



Various labels are shown below. The superscripted C signi- 
fies a letter as being a control character. 

10 REM J C J C PRINT NAMEJ C J C 
This line will have a label of "PRINT NAME" . 

10 REM J C J C PRINT J c NAME 

In this example, the label will be "PRINT" because the J c 
cancels the rest of the line. 

10 REM "PRINT NAME" 

The last label will not be acknowledged since it is enclosed 
in quotes. 



Active Memory 



GOTO Label has another feature transparent to the user — 
any ampersand program in memory when GOTO Label is 
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OBDl- 


C9 


B4 




1580 






CMP tON.T IS IT THE ON... STATEMENT? 


OBU5-- 


DO 


03 




1590 






BNE .1 


0337- 


4C 


49 


08 


1600 






JMP ON VES SO EXECUTE 


OSOA- 


48 






1610 


r l 




P1IA SAVE TOKEN 


080B- 


AO 


01 




J 620 






LDY ($01 LOOK FOR t}UOTE AFTER THE STATEMENT 


OBOD- 


61 


B8 




1630 






LDA ITXTPTR) ,Y 


obof- 


C9 


22 




1640 






CHP (QUOTE 


0B1 1- 


fo 


04 




1650 






BEQ DO. SPECIAL. COMMAND 


0813- 


63 






1660 






Pf,A RESTORE STACK 


0814- 


4C 


28 


D8 


16 70 






JMP DO, NORMAL DO A NORMAL COMMAND 










16B0 


DO 


.SPEC 


1AL. COMMAND i 


8.81'?- 


68 






1690 






PLA RESTORE OLD TOKEN 


[>h i a - 


C9 


AB 




1700 






CMP IGOTO.T IS IT A GOTO? 


081A- 


F0 


07 




1710 






fcT.Q GOTO 


■ 081C- 


C9 


60 




1720 






CMP fGOSUB.T IS IT A GOSUB7 


' 081E- 


co 


oc 




1730 






BEQ GOSUB 


OB20- 


4C 


C9 


DE 


1740 
1750 


.1 




JMP SYNERR 
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» 


HANDLES GOTO, GOSUB AND ON 










1770 


* 


GOTO/ 


OOSUBS TO A LABEL OR LINE 
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* 


NUMBER, LINKED THRU THE £ KEY, 










1790 


fr- 














1800 
















1810 


eer o 




0823- 


20 


Bl 


00 


1820 






JSR CHRGET POINT TO THE QUOTE 










1830 


GO TO 2 




0826- 


JO 


9C 


OH 


1940 






JSR SEARCH FIND LIKE 


0829- 


ic 


SC 


D9 


1B50 
1B60 


*_ 




JMP G02t3 
















1B70 


* 


THIS 


ROUTINE HANDLES THE 










1BB0 


It 


GOSUB 


LABEL COMMAND. 










1890 


*_ 




-,_ __„„ 










190O 
















1910 


GOSUB 




082C- 


20 


6! 


00 


1920 






JSR CHRGET POINT TO THE QUOTE 










1930 


GOSUB2 




082F- 


A9 


03 




1940 






LDA #53 


0831- 


20 


DS 


D3 


1950 






JSR CHKMEM 


0834- 


A5 


B9 




1960 






LDA TXTPTRtl POSH THE TXTPTR ONTO THE STACK 


0836- 


4B 






1970 






PHA 


0837- 


A5 


BB 




I960 






LDA TXTPTR 


0839- 


48 






1990 






PHA 


083A- 


A5 


77 




2000 






LDA CUPXIN-tl PUSH CURRENT LINE ONTO THE STACK 


083C- 


48 






2010 






PHA 


083D- 


A5 


76 




2020 






LDA CURLIN 


083F- 


48 






2030 






PHA 


0840- 


A9 


B0 




2040 






LDA (GOSUB. T SAVE THE COMMAND ONTO THE STACK 


0842- 


48 






2050 






PHA 


CB43- 


20 


26 


0B 


2060 






JSR GOT02 LOOK FOR THE LINE 


0B46- 


4C 


D2 


D7 


2070 

2080 
2090 






JMP NEWSTT EXECUTE A NEW STATEMENT 


















2100 


a 


ON 


GOTO, GOSUB FOR LABEL. 










2110 

2120 






























2130 


ON 






0849- 


20 


Bl 


00 


2140 






JSR CHRGET POINT TO THE FORMULA 


0B4C- 


20 


F8 


E6 


2150 






JSR GETB¥TE EVAL. FORMULA 
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BRUN is kft active (as long as it does not use the same mem- 
ory space). This allows RENUMBER from the Apple master 
disk to reside in memory and remain accessible to the user at 
the same time as GOTO Label. To have both programs in 
memory at once. RUN RENUMBER, then BRUN GOTO 
LABEL. All the features of RENUMBER will still be active. 

Replacing Labels with 
Line Numbers 

The Replace program is GOTO Label's counterpart. It will 
scan through an Applesoft program to replace the ampersand 
GOTOs, GOSUBs and ONs with normal GOTOs, GOSUBs 
and ONs, and will replace the source labels with line numbers. 
This allows the Applesoft program to be run on any Apple 
(GOTO Label need not be in memory, since the Applesoft 
program is standard), or even compiled. 

To enter Replace in memory, follow these steps: 



1) Boot the 3.3 master disk. 

2) Insert the blank disk in the drive. 

3) Clear the Applesoft program from memory. 
FP 

4) Enter the monitor. 
CALL -151 

5) Type the Hex dump for REPLACE . 

6) Return to BASIC. 
3D0G 

7) Save the program. 

BSAVE REPLACE,A$8ft3,L$360 

Replace will overwrite GOTO Label. Because there is no 
need to have both in memory at the same time, this presents no 
major problem. Replace will also destroy any Applesoft pro- 
gram currently in memory, so the program to be converted 
must be saved to the disk. Replace should be BRUN. . 
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SAVE COMMAND TYPE 
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n 


a 
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CMP (GOSUB. T 
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M 


a 
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BEQ .1 
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CMP (GOTO.T 


IS IT A GOTO 


0803- 


A9 


5B 85 


67 
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SF3A5 


0856- 


F0 03 




2200 


BEQ .1 




0808- 


0B 


85 68 


20 


4B 


D6 


A9 


4C 


5E3F9 


085B- 


4C C9 


DE 


2210 


JMP SYNERR 


NEITHER, SO PRINT SYNTAX ERROR 


0810- 


BO 


F5 03 


A9 


20 


3D 


FS 


03 


$2050 








2220 






OB1B- 


A9 


08 3D 


F7 


03 


4C 


3C 


D4 


S2CD6 


085B- 


C6 Al 




2230 .1 


DEC FAC+4 


DECREMENT ON LOOP 


0B20- 


A5 


67 85 


B8 


A5 


68 


85 


B9 


ID413 


085D- 


DO 12 




2240 


BNE .3 




0828- 


A5 


AF E9 


03 


85 


AF 


30 


02 


$73BA 


085F- 


ftO 01 




2250 


LDY ($01 




0810- 


C6 


AF 20 


DA 


09 


A5 


36 


85 


$CBB1 


0861- 


Bl B8 
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LDA (TXTPTRj 


,Y IS IT A QUOTE? 


0838- 


75 


A5 B9 


85 


76 


20 


DA 


09 
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0840- 


20 
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B0 


03 


4C 


BP 


09 
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BEQ .2 
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AO 
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BB 


C9 


AF 


F0 


24 
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D9 


2290 
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C9 
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11 


C8 


Bl 


B3 


F0 
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oc 
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DO 


F7 


C8 


20 


98 
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IS IT A GOSUB COMMAND 


0860- 


D9 
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F0 


E5 


20 


A3 


D9 
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Bl 
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CB 


20 


98 


D9 


28 
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DO 
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BE 


C8 


Bl 


B8 


C9 
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BO 
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C9 


AB 


F0 


04 


C9 
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00 
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B4 
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S3 


3C 
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0B 


A0 
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B8 


C9 


22 
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07 
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3S 


CB 


CS 


co 


F3 


$79C0 
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CA 


DO F6 


SB 


A9 


20 


91 


38 
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GET NEXT CHARACTER 
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Fl 


09 


90 


12 
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REACH THE END YET? 
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A0 


00 


Bl 


BB 


C8 
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C9 
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06 


20 


9E 


09 


4C 
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32 
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0B 


A5 


B8 
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78 


AS 


67 


85 
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B0 
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$6C1B 


0B8C- 


DO F7 




2480 


BNE .10 




08D8- 


4C 
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00 
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S3 
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D9 


C8 
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08E8- 


98 


09 4C 


CD 


08 


::s 


Bl 


BS 


$58B6 


0893- 


C9 2C 




2510 


CMP (COMMA 
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09 


C9 


21 
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0B 
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C3 


5B820 








2540 SYNTftX 
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C9 


21 
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F7 
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BC 
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AC 
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0B 


Bl 
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22 
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20 
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EE 
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0B 
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11 


Bl 


Bti 


F0 


55F1E 








2600 






0930- 


17 


C9- 20 


90 


13 


Bo 


.03 


C8 


$7F03 














0938- 


DO 


F3- C9 


22 


F0 


0A 


20 


A6 


53442 
















2620 * SEARCH FOR THE LINE REQUESTED. 
































0940- 
0948- 


D9 
AC 


C8 20 

57 0E 


98 
Bl 


D9 


4C 

FC 


CD 
OF 


08 
C9 


53019 
S09AC 








2640 












2650 3 K ARC II 






0950- 


22 


F0 06 


C9 


20 


90 


07 


F0 


51F00 


J89C- 


ftO 00 




2660 


LDY #500 


SCAN FOR A LEGAL LABEL 


0958- 


02 


B0 CE 


C8 


DO 


ED 


20' 


ft6 


5EADD 








2670 .0 






0960- 


D9 


C8 20 


98 


m 


20 


DA 


09 


S2A4F 


■3 8SE- 


C8 




2680 


I NY 




0968- 


20 


E7 09 


B0 


03 


4C 


01 


OB 


5B9 4C 


0B9F- 


Bl B8 




2690. 


[.DA (TXTPTR) , 


Y 


0970- 


A0 


02 Bl 


BB 


C9 


B2 


F0 


E6 


S718F 


0BAJ- 


F0 F4 




2700 


BEQ SYNTAX. ERROR BAD BRftNCH, PRINT SYNTAX ERROR 


Q978- 


A0 


00 Bl 


B8 


SD 


53 


0B 


CB 


S93A3 


08A3- 


C9 22 




2730 


CMP (QUOTE 


FOUND ANOTHE QUOTE? 


0980- 


Bl 


B8 3D 


54 


0B 


20 


91 


0A 


5B28C 


08ftS- 


F0 F0 




2720 


BEQ SYNTAX. ERROR 


0988- 


AS 


77 85 


BS 


A5 


78 


35 


B9 


S5AC9 
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Conversion 

After Replace is BRUN, the labels can be converted to line 
numbers. Load the Applesoft program to be converted, press 
the ampersand (&) key, and wait a few seconds. When the 
Applesoft prompt appears, the conversion is complete. The 
ampersands have been removed and the program has become 
standard Applesoft. 



The conversion program will always point the branch to the 
next non-REM statement after the label. In this way no 
branches to a remark are made. 

There are two error messages which can be encountered 
during the conversion process. 

1) LABEL NOT FOUND IN LINE X 

This means that there is a branch to a label that does not 
exist. 

2) NO LINE AFTER LABEL CALLED FROM LINE X 
This appears if there was no non-REM statement after the 

label. 

Both of these errors cause the conversion process to halt, 
leaving the remaining portion of the program unconverted. 
These errors must be corrected before a conversion can be 
attempted again. 

NOTE: Always save the original Applesoft program (the one 
with all the labels in it), since there is no way the labels can be 
restored after a conversion is made. 



Program 



Hexdump 



0BA7- 


C9 


21 


2730 


CMP 


tlABEL-,5 


IS IT A LEGAL LABEL? 






















08A9- 


90 


F3 


27 4 


BCC 


.0 


NO SO CONTINUE 






















08AB- 


88 




2750 


DEY 




BACK UP ONE 






LJ 


Q 


r*i 


k 










B AC- 


B4 


SO 


2760 

2770 
2780 


STY 


FIRST. OFFSET 






n 


C 


P 


Icu^c 






OB AE- 


AS 


67 


LDA 


TXTTAB 


GET BEGINNING OF THE PROGHAM 






















OBRO- 


85 


9B 


2790 


STA 


LOWTR 




0990- 


A0 


FF 


20 


Fl 


09 


AE 


50 


02 


SE03B 


0BH2- 


A5 


68 


2800 


LDA 


TXTTABtl 




0998- 


BD 


51 


02 


91 


B8 


CA 


FO 


15 


$12B9 


08B4- 


as 


9C 


2810 


STA 


LOWTR +1 




09AO- 


C8 


Bl 


B8 


F0 


04 


C9 


22 


DO 


5A11F 








2820 








09A8- 


EF 


20 


98 


D9 


BA 


AB 


20 


51 


15 746 


08B6- 


A0 


00 


2830 .1 


LDY 


#S00 




09BQ- 


0A 


A0 


00 


eo 


E3 


CB 


20 


98 


S47FB 


08BB- 


B1 


9B 


2S40 


LDA 


(LOWTR) , 


Y GET OFFSET TO NEXT LINE 


09B8- 


179 


20 


02 


UA 


4C 


AE 


08 


AO 


S6742 


03BA- 


4B 




2850 


PHA 






09C0- 


04 


A9 


00 


91 


AF 


68 


10 


FB 


■52130 


OtilJB- 


CB 




2860 


INY 






09C8- 


A5 


BO 


B5 


6A 


A5 


AF 


18 


69 


5D3E9 


08BC- 


Bl 


9B 


2870 


LDfl 


(LOWTF.) , 


Y 


O9D0- 


04 


8 l , 


69 


9 


02 


E6 


6A 


4C 


5B697 


08BE- 


4B 




2880 


PHA 






09D8- 


F2 


D4 


E6 


B3 


OO 


02 


E6 


B9 


58278 


OBBF- 


no 


04 


2890 


BNE 


.6 
























0BC1- 


6B 




2900 


PLA 






09EO- 


E6 


6« 


DO 


02 


E6 


B3 


60 


A5 


554A5 


08C2- 


sa 




2910 


PLA 






09E8- 


AF 


38 


ES 


BB 


A5 


BO 


E5 


B9 


5C8F1 


0BC3- 


ifl 




2920 


CLC 






09FO- 


60 


C8 


Bl 


BB 


FO 


OA 


C9 


3A 


SC6C9 


08C4- 


60 




2930 


RTS 






09F8- 


FO 


06 


C9 


22 


DO 


F3 


18 


60 


50305 


08C5- 


rs 




2940 .6 


J NY 




SKIP LINE! 


0AO0- 


38 


60 


AO 


JF 


CB 


Bl 


B8 


FO 


559A4 


D8C6- 


frfl 




2950 


I NY 






0AOB- 


09 


C9 


3A 


F0 


05 


C9 


22 


DO 


5E31B 


08C7- 


C3 




2960 


I NY 






0A10- 


FJ 


C8 


8C 


5b 


OB 


A2 


03 


A5 


5FEE2 


oaca- 


Bl 


9B 


2970 


LDA 


(LOWTR! , 


Y 


0A18- 


B8 


SD 


28 


0A 


BD 


2B 


OA 


A5 


SB201 


08CA- 


rq 


B2 


29B0 


CMP 


tREM.T 


IS IT A REM (MAYBE A LABELI 


0A2O- 


by 


317 


29 


UA 


BS 


2C 


OA 


B9 


S1D55 


08CC- 


FO 


09 


2990 


BEQ 


.3 




0A28- 


FF 


FF 


an 


FF 


FF 


DO 


10 


CA 


S451B 


OBCE- 


f,n 




3000 .2 


PLA 


























08CF- 


85 


9C 


3010 


STA 


LOWTR + 1 


GOTO NEXT LINE 


0A3O- 


1)0 


OF 


33 


A5 


AF 


ED 


55 


OB 


?aCB5 


D8D1- 


63 




3020. 


PLA 






QA38- 


85 


AF 


E0 


02 


C6 


BO 


60 


A2 


SC385 


0BD2- 


BS 


9B 


3 0.30 


STA 


LOWTR 




OA40- 


03 


EE 


26 


OA 


EE 


2B 


OA 


DO 


SD0F3 


0BD4- 


4C 


B6 08 


3 04 


JMP 


.1 


ALWAYS 


0A43- 


DE 


EE 


2V 


OA 


EE 


2C 


OA 


DO 


5F9 2C 








3050 








OA50- 


D6 


AS 


AF 


8D 


62 


OA 


BD 


65 


50B77 


08D7- 


CB 




3 060 .3 


INY 






0A58- 


0A 


A 5 


BO 


8D 


63 


OA 


3D 


66 


5C1B3 


oana- 


HI 


9B 


3 070- 


LDA 


( LOWTR | , 


Y GET NEXT CHARACTER IH LINE 


OA60- 


UA 


AD 


m 


FF 


aa 


FF 


FF 


AD 


5 5 SEA 


OBDA- 


pf) 


F2 


3030 


BEQ 


.2 




0A68- 


62 


0A 


DO 


06 


CE 


S3 


OA 


CE 


50012 


OBPC- 


p4 


21 


3 090 


CMP 


tLABEL.T 


IS IT A LEGAL LABEL? 


0A70- 


66 


0A 


CE 


62 


OA 


CE 


6b 


OA 


55D5F 


OBDE- 


90 


F7 


3100 


BCC 


.3 




0A78- 


AD 


62 


0A 


C5 


B3 


EO 


E2 


AD 


54BDB 


08E0- 


B3 




31 ID 


DEY 




SET Y-REG TO PT ONE BEHIND LEG LAB 






















08E1- 


A6 


A0 


3120 


LDX 


FIRST. OFFSET OFFSET TO GOTO/COSUB/ON LABEL 


0A8 0- 


63 


0A 


C5 


B9 


DO 


DB 


98 


18 


55695 








3130 








0A8 8- 


65 


AF 


85 


AF 


90 


02 


E6 


BO 


$8148 


0BE3- 


ca 




3140 .4 


I NY 






0A9O- 


60 


A9 


00 


A3 


3D 


51 


02 


BD 


563C1 


0BE4- 


EB 




3150 


INX 






QA98- 


bO 


02 


A9 


00 


BD 


59 


OB 


BD 


SC09B 


08E5- 


B1 


9B 


3160 


LDA 


(LOWTRI , 


Y COMPARE LABEL 


0AAO- 


5A 


0B 


A2 


10 


IB 


2E 


53 


OB 


5FD0B 


0BE7- 


C9 


20 


3 .1 7 


CMP 


# SPACE. 'I 


LOOK FOR SPACE OR CONTROL CHAR. 


0AA8- 


2E 


54 


0B 


2E 


59 


OB 


2E 


5A 


SDB80 


0BE9- 


90 


OF 


3180 


BCC 


.5 


IF FOUND THEN I.ABEL IS DONE 


0ABO- 


0B 


38 


AD 


59 


OD 


E9 


OA 


A3 


?32F5 


08EB- 


84 


9E 


3190 


STY 


FAC+1 




0AB8- 


AD 


5A 


0B 


E9 


00 


90 


06 


8C 


S2D72 


08ED- 


86 


9F 


3200 


STX 


FACf2 


TRANSFER X-REG TO Y-REG 


0AC0- 


59 


OB 


8D 


5A 


OB 


CA 


DO 


DO 


50A46 


OBLF- 


A4 


9F 


3 210 


I.DY 


PAC+2 




0AC8- 


2E 


53 


0B 


2£ 


54 


OB 


AD 


59 


5FFBB 


08F1- 


Dl 


BB 


3220 


CMP 


(TXTPTRI 


,Y 






















08F3- 


DO 


D9 


3230 


BNE 


.2 




0AD0- 


0B 


09 


30 


EE 


50 


02 


AC 


50 


543D6 


08F5- 


A4 


9E 


3240 


I.DY 


FAC+1 


RESTORE Y-REG 


0AD3- 


02 


99 


51 


02 


AD 


53 


OB 


OD 


S2EFF 


08F7- 


4C 


E3 08 


3250 


JMP 


.4 


CONTINUE WITH COMPARISON 


0AE0- 


54 


0B 


DO 


Bfc 


60 


AO 


1A 


B9 


5DB79 








3260 .5 








0AE3- 


OF 


0B 


20 


ED 


FD 


88 


10 


F7 


S75E3 


08FA- 


8A 




3270 


TXA 




TRANSFER X-REG TO Y-REG 


0AF0- 


AO 


oo 


Bl 


75 


AA 


ca 


Bl 


75 


5509B 


08FB- 


AS 




3280 


TAY 






0AF8- 


20 


24 


ED 


20 


8E 


FD 


4C 


BF 


58B9F 


oet'C- 


Bl 


BB 


3290 


LDA 


(TXTPTRI 


,Y MAKE SURE GOTO LABEL IS FINISHED 


0BO0- 


09 


A0 


28 


B9 


2A 


OB 


20 


ED 


5473F 


08FE- 


C9 


22 


3300 


CMP 


tQUOTE 




0BO8- 


FD 


88 


10 


F7 


4C 


FO 


OA 


AO 


$ 4DA7" 


0900- 


F0 


04 


3310 


BEQ 


.7 




0B1G- 


C5 


CE 


C9 


CC 


AO 


CF, 


C9 


AO 


5EB3 


0902- 


c9 


20 


3320 


CMP 


I SPACE. T 




OB18- 


C4 


CE 


D5 


CF 


C6 


A; 1 


D4 


CF 


5D8DE 


Pagt 


28 
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How GOTO Label Works 

GOTO Label makes use of the normal Applesoft branches. 
A description of how the normal GOSUB, GOTO and ON 
work will help explain how the program operates. Then these 
branches can be compared to the special ampersand branches 
used in GOTO Label. 

GOSUB ($D921 to $D93B) 

First makes certain there is enough room on the stack to exe- 
cute another GOSUB. 

a) If there isn't, generates an 
"out of memory "error. 

b) If there is, saves the position in this line and the token for 
GOSUB. Enters step 1 of the GOTO routine. 



GOTO($D93Eto$D968) 

1 ) Converts the tobenized line number to a two-byte hexade- 
cimal number. 

2) Finds out if the line number being branched to is greater 
than 256 plus the current line number 

a) If so, starts the search from this line number. 

b) If not, starts the search from the beginning of the pro- 
gram. 

3) Searches for the line number. If it is found, moves the 
pointers there and executes the line, otherwise give an 
?UNDEF'D STATEMENT ERROR. 

ON ($D9EC to $DA0B) 

1) Evaluates the formula following the ON command. 

2) Saves the type of branch (GOTO/GOSUB) on the stack. If 
the branch is not a GOTO or GOSUB, generates a SYNTAX 
ERROR. 



Program 



091A- 


S5 9C 




33 40 




SIS 


LOWTHtl 




<mc- 


6B 




3350 




PE,A 






093D- 


85 9B 




3360 




STA 


1 ,OWT R 




09JF- 


IB 




3370 




S'EC 




SET FOR DORROW 


0940- 


60 




33SO 
3J90 


END 


PTS 

PROGRAM 




RTS TO CALLER 


0941- 


oo oo 


00 


3400 




.IIS 


0(100.00 





Z-80 PLUS! 




•Igta% compatible with a// CP/M software, there are 
UP. exceptions! 

• Fully compatible with Microsoft disks, most other 
Z-80 cards are not. 

• Does everything the other 2-80 cards do plus 
supports Z-80 interrupts. 

• Runs on any Apple lie, II or 11+ with at least 48K 

memory, works with any 80 column card but does not 
require one. 

• A special "CP/M Detector" ROM eliminates many 
I.C's for the lowest power consuming Z-80 card 
available. (We use the Z-80A at a fast 3.58 MHZ), 

• The Z-80 Plus runs: dBase II, WordStar, Spell Star, 
Fortran-80, Peachtree and aU CP/M based software. 

• Complete documentation included . 

• High quality P.C. board, gold plated connector, all 
I.C's in high quality sockets, with mil. spec, 
components used throughout. 



■ Two year warranty. 

Send Check or Money Order to: 
APPLIED ENGINEERING 
P.O. Box 470301, Dallas, TX 75247 
All Orders Shipped Same Day 



Price $139.00 

Add $10,00 If Outside U.S.A. 

To Order By PKone Call (214) 492-2027 
7am to 11pm 7 days a week 
MasterCard & visa Welcome 
Te*as Residents Add 511 Sales Ta* 



Hexdump 

QUICK COPY 



liuo 


4C 6B 12 4C A8 12 4C C5 


53 5FA 


1208- 


12 4C 24 13 4C 2F 13 4C 


56931 


1210- 


50 12 00 60 01 00 00 00 


8*970 


1218- 


23 12 00 14 00 0U 00 00 


SJCE7 


1220- 


00 60 01 00 01 EF 08 A9 


59E52 


122B- 


0C B5 24 A9 0B 20 513 FB 


S6F41 


12 30- 


At" IE 12 DO 3A 13 20 ED 


541 4 3 


12 m- 


FD AD 16 12 20 DA FD A9 


502CD 


1240- 


2E 20 EO FD AD 17 12 20 


S2Eoa 


1248- 


DA FD 2C 83 CO 2C 63 CO 


$7428 


1250- 


A9 00 8D IF 12 A9 12 AO 


55A6 7 


125a- 


12 20 E5 67 08 2C HI CO 


5PEA6 


1260- 


A9 00 85 46 28 BO 03 BD 


56CEF 


1256- 


IF 12 60 A9 00 8D 1A 12 


50034 


1270- 


BD IB 12 B5 'JO BE 15 12 


SF80A 


12 78- 


A9 22 B5 01 S5 03 A9 OF 


50F5F 


1280- 


85 04 85 02 A9 67 BO 14 


S36CF 


12B8- 


13 8D 83 CO 6D 83 CO A2 


5D41E 


1290- 


OF BD 3E 13 90 FO FF DD 


5F8A4 


12°8- 


FO FF 00 08 CA 10 F2 A9 


$E4AB 


12A0- 


FF 6D 14 13 BD 81 CO 60 


50468 


12A8- 


A9 01 SO IE 12 A5 01 6D 


55C96 


12B0- 


16 12 A5 02 80 17 12 20 


SFJ09 


12BH- 


69 12 AD 17 12 05 02 W) 


54QB3 


)2C0- 


16 12 85 01 60 A9 02 BD 


$3301 


I2ce- 


IE 12 A5 03 BD 16 12 AS 


SFD.16 


12D0- 


04 80 17 12 50 E9 12 AD 


5806E 


1 2D8- 


16 12 85 03 AD 17 12 85 


51F5B 


12EO- 


04 BO 01 60 A9 FF 85 00 


SB6 3 7 


12E6- 


60 A9 14 BD IB 12 20 27 


S1AA0 


12F0- 


12 90 09 68 80 4E 13 68 


$2478 


12F8- 


8D 4F 13 60 CI: 17 12 10 


$E3CC 


1300- 


DC A9 OF SO 17 12 CE 16 


55 2C2 


nos- 


12 10 02 38 60 EE IB 12 


5A300 


1310- 


AD IB 12 C9 FF FO OB C9 


SD1A7 


1318- 


BT DO 03 A9 DO 8D IB 12 


$550B 


13 20- 


DO CC 18 60 AD 4F 13 46 


520AE 


1328- 


AD 4E 13 48 4C EE 12 AD 


54304 


1330- 


4F 13 48 AD 4E 13 48 4C 


$1639 


1338- 


FC 12 53 52 57 49 83 7F 


$6310 



J340- 5C CC B5 FC 17 17 F5 03 56880 
1348- FB 03 59 FF 86 FA 00 00 50605 



Replace 



OB20- CE AO CC C5 C2 CI CC 8D 

0B2B- 8D 87 AO C5 CE C3 CC AO 

0B30- CD CF D2 C6 AO C4 C5 CC 

0B38- CC CI C3 3D AE CC C5 C2 

0B4Q- CI CC AO D2 CS D4 C6 CI 

0B48- AD C5 CE O CC AO CF CE 

5HSD- BD BD 87 00 00 00 00 00 
■'.B53- 00 00 00 00 00 



S1BC0 
SADBO 
SD170 
57D91 
S9UA 
$C140 
577E6 

Sicca 
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Fir 



bsfa 



^ 






=inH^^y^ 



MH^^NH^N 



JLd 



TT 



r'r^ 



. 



r^li-i 



MMJ 



3) Enters a loop to find the proper statement to CALL. 

a) Decrements the results from the calculation made in step 
1. 

b) If at zero, exits to step4, 

c) Skips to the next line number. If there are no more line 
numbers, restores the stack and continues with the next state- 
ment. 

d) Loops back to step a. 

4) Retrieves branch type and perform the branch specified. 



GOTO Label 
Ampersand Commands 

Compare the GOTO Label commands to the normal Apple- 
soft branches. 

&GOSUB 

1) Duplicates step 1 from Applesoft. 

2) Falls into &GOTO. 

&GOTO 

1) Searches for a label. Is there a quote following the 
&GOTO? 

a) If no quote is found, there can't be a label, so the routine 
treats it as a normal GOTO and lets Applesoft handle it. 

b) If a quote is found, a label was present. Falls into step 2. 



Dynamic 




Checksums 



10 


- SE1BE 


20 


- $5F0C 


30 


- $B4FA 


40 


- $C19F 


50 


- $1484 


60 


- $26C5 


70 


- $4AE3 


60 


- $F571 


90 


- $C402 


100 


- $676E 


110 


- $A891 


120 


- $7C77 


130 


- $F1FE 


140 


- $0C4E 


150 


- $FC1E 


160 


- tB4F9 


170 


- SA74E 


180 


- SB055 


190 


- 83760 


200 


- S6FAF 


210 


- *7BD0 


220 


- $BF20 


230 


- $7265 


240 


- $1331 


250 


- $3760 


260 


- $C1E3 


270 


- $EFC0 


260 


- $7CF0 


290 


- $BEC4 


300 


- $21D0 


310 


- *C13A 


320 


- $0881 


330 


- $8205 


340 


- $59E8 


350 


- $BC7D 


360 


- $ABEF 


370 


- $D6F7 


360 


- $E600 


390 


- $5E1A 


400 


- $E6DC 



0067- 
0075- 
O0AF- 
0069- 
00BB- 
0077- 

0250- 

0251- 
Q3F5- 



00AF- 
00AD- 
0OC4- 
O0B0- 
OOAB- 
O0B2- 
00B4- 
0020- 
002C- 



Program 

Replace 



1 



1000 

1010 * 

1020 * REPLACE GOTO LABEL 

1030 * 

1C40 * BY 

1050 * ROBB S. CANF1ELD 

106O * 

1070 * 

1080 * 

1090 

J 100 * 

1110 * ROUTINE TO SEARCH FOR 

1120 * AMPERSANDS AND GOTO F GOSUB, ON 

1130 * 

1140 

1150 .OR $ 80 3 PLACE BELOW BASIC PROGRAM 

1160 .TF REPLACE 

1170 

1180 

1190 

1200 AP. START .EQ 567.6B POINTS TO WHERE APPLESOFT STARTS 

1210 CURLIN -EQ 575,76 START OF CURRENT LINE 

1220 AR.END -EQ ?AF,B0 POINTS TO END OF BARIC PROGRAM 

1230 LOMEM .Eg $69 POINTER TO END+1 

1240 CURRENT. LOC .EQ 5B8,B9 POINTER TO CURRENT LOCATION 

1250 TEMP .EQ 577,78 POINTER TO SEARCH LOCATION 

1260 

1270 LENGTH .EQ 5250 LENGTH OF LINE IN THE BUFFER 

1280 BUFFER .EQ 5251 BUFFER TO STORE LINE NUMBER 

1290 AMPER. VECTOR -EQ 53F5 THE AMPERSAND JUMP VECTOR 

1300 

1310 

1320 * 

1330 * TOKENS FOR APP. COMMANDS 

1340 * 

1350 

1360 AMPER .EQ $AF 

1370 IF -EQ 5AD 

1380 THEN ,EQ 5C4 

1390 GOSOB .EQ ?B0 

1400 GOTO .Eg 5AB 

1410 REM .Eg $B2 

1420 ON .EQ $B4 

1430 SPACE .EQ ?20 THE TOKEN FOR ft SPACE 

1440 COMMA .EQ S2C 

1450 
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2) Searches from the beginning of the program for a match- 
ing label. 

a) If one is found, executes that line. 

b) If not, generates an error. 

&ON 

1) Duplicates step 1 from the normal ON command. 

2) Duplicates step 2 from the normal ON command. 

3) Enters a loop to find the correct statement to execute. 

a) Decrements the calculation made in step 1 . 

b) If at zero, goes to step 4. 

c) Skips to the next line number/label. If at the end of the 
&ON command, executes the next statement. 

d) Loops back to step a. 

4) If the branch is to a line number, lets Applesoft handle it. 



Otherwise goes to the proper ampersand routine . 

The GOTO Label ampersand commands nearly duplicate 
the corresponding Applesoft commands, except that instead 
of searching for a line number, the routines search for a label. 
After directing the pointer to the number of the line in which 
the label was found, the process switches to the appropriate 
Applesoft routine. 

GOTO Label will make your programs more user-friendly. 
Instead of having to remember that a particular routine started 
at line 10500, you can simply GOTO the name of that routine. 
This is especially useful when dealing with programs of epic 
length, which may contain enough routines to bewilder the 
most organized user. Program documentation will obviously 
become a less-tedious chore. 






D43C- 

D64B- 
D9A3- 
D9A6- 
D4F2- 
ED24- 
D998- 
FDED- 
FD8E- 



0803- 

0805- 
0807- 
0809- 
080B- 
080E- 
0810- 
0813- 

oeis- 

0818- 
081A- 
081D- 



0820- 
0822- 
0824- 
0826- 
0828- 

082ft- 
082C- 

0B2E- 
0830- 



0832- 
0835- 
0837- 

0839- 
083B- 



A9 5B 
85 67 
A3 0B 
85 68 
20 4B D6 
A9 4C 
BD F5 03 
A9 20 
8D F6 03 
A9 08 
8D F7 03 
4C 3C 



t>A 



AS 67 
8 5 B8 
AS 68 
85 B9 
A5 AF 

E9 03 
85 AF 
B0 02 
C6 AF 



20 DA 09 
AS B8 
85 75 
A5 B9 
85 76 



Program 

Replace 



1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1S40 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
17 30 
1740 
1750 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1S50 
1860 
1870 
1B80 
1B90 
1900 
1910 
1920 
1930 
1940 
1950 



* SUBROUTINES USED 



RESTART ,EQ 5D43C fcNTEB APPLESOFT 

SCRATCH .EQ SD64B EXECUTE A NEW COMMAND 

DATAN .EQ SD9A3 MOVE ONTO NEXT STATEMENT 

REMN .EQ SD9A6 GOTO NEXT LINE 

RELOCATE .Eg SD4F2 REBUILD POINTERS SUBROUTINE 

LINPRT .EQ SFD24 PRINT THE LINE NUMBER 

ADDTXTPTR . EQ SD998 ADD Y-REG TO TXTPTR (SB8,5B9) 

C0UT .EQ 5FDED PRINT THE A-REG IN ASCII 

CR0UT .EQ 5FDBE GENERATES A RETURN 



LDA #END. PROGRAM RESET BASIC PROGRAM POINTER£ 

5TA AP. START 

LDA /END. PROGRAM 

STA AP.START+1 

JSP. SCRATCH EXECUTE THE NEW STATEMENT 

LDA #?4C THE JUMP COMMAND 

STA ftMPER, VECTOR 

LDA # START 

STA AHPER.VECTOR+1 

LDA /START 

STA AM PER. VECTORS 2 

JMP RESTART AND ENTER APPLESOFT 



Dynamic 




c 


i\ 


■ft,', ■: 


ii 


' ^*^t 




*' 


8$JS 


m, 



Checksums 



START 



LDA AP. START INITIALIZE THE PROGRAM 
STA CURRENT. LOC 
LDA AP.START+1 
STA CURRENT. L0C+1 



POINT END OF FROG RAM POINTER TO 
BYTE FOLLOWING LAST LINE 



LOOP 



LDA AP.END 

SBC #503 
STA AP.END 
BCS LOOP 

DEC AP.END 



JSR SKIP. TWO, BYTES 

LDA CURRENT. LOC SAVE CURRENT LINE FOR ERRORS 

STfi CURLIN 

LDA CURRENT. LOC+1 

STA CURLIN+1 



410 


- $4467 


420 


- $FB58 


430 


- $E874 


440 


- $B454 


450 


- $1CF1 


460 


- SA56E 


470 


- $4E29 


480 


- $7192 


490 


- S336E 


500 


- S9BE4 


510 


- $5A5B 


520 


- $8331 


530 


- $A80F 


540 


- S4FA5 


550 


- $AB74 


560 


- $88CD 


570 


- SB69F 


580 


- $F7A0 


590 


- $BB02 


600 


- $95B4 


610 


- $F387 


620 


- $0404 


630 


- $5610 


640 


- $3F8C 


650 


- $F5B9 


660 


- $3351 


670 


- SD1B3 


680 


- $492A 


690 


- $C15C 


700 


- $26F9 


710 


- S830E 


720 


- $0980 


730 


- $97BF 


740 


- $DC04 


750 


- $6B74 


760 


- $AB78 


770 


- $2F46 


780 


- $3219 


790 


- $9E2F 


800 


- $6CD7 
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Dynamic 




Checksums 



eio 


- $90F5 


820 


- S1FEC 


830 


- $A13A 


840 


- $9A45 


850 


- S5E95 


860 


~ $8207 


870 


- $9402 


880 


- S232C 


890 


- $0307 


900 


- $00E5 


910 


- $050B 


920 


- $9E5A 


930 


- $F0BF 


940 


- $D84A 


950 


- $81 9F 


960 


- *67F9 


970 


- $B48A 


980 


- $4E7B 


990 


- $52AD 


1000 


- $9C3£ 


1010 


- $5BD7 


1020 


- $16C5 


1030 


- $C116 


1040 


- $BE1C 


1050 


- $46FF 


1060 


- $ED41 


1070 


- $7115 


1080 


- $57D5 


1090 


- SA2C7 


1100 


- $1906 


1110 


- $8E06 


1120 


- $C2C4 


1130 


- $8A98 


1140 


- $C17E 


1150 


- $6088 


1160 


- $7BF6 


1170 


- $1C86 


1180 


- $31F4 


1190 


- $FE3E 


1200 


- $3092 


1210 


- $86C9 


1220 


- $06F1 


1230 


- $0726 


1240 


- $BEE5 


1250 


- $24A9 


1260 


- $B10F 


1270 


- $EC5E 


1280 


- $6801 


1290 


- $0DB3 


1300 


- $E6FA 


1310 


- $0B92 


1320 


- $0631 


1330 


- $D8B7 


1340 


- $8A9F 


1350 


- $B04D 


1360 


- $27A4 


1370 


~ $5C11 


1380 


- $46C0 


1390 


- $AD3B 


1400 


- $551B 




0S3D- 
OB40- 
0843- 
OB45- 
0848- 

084A- 
0B4C- 
084E- 
OB50- 
0852- 

0854- 
0855- 
0857- 
0859- 

0B5B- 

085D- 
085E- 
0861- 
0863- 

0865- 
0B68- 
0B6A- 
0S6B- 
086C- 
086F- 
0870- 
0872- 

0874- 
0B75- 

0877- 
0879- 
OB7B- 
087D- 
087F- 
0881- 



20 DA 09 

20 E7 09 
BO 03 
4C BF 09 
AO 00 

61 BB 
C9 AF 
FO 24 

C9 AD 
DO 11 

C8 
Bl B8 

FO oc 
C9 C4 
DO F7 

ce 

20 98 D9 
AO 00 
FO E5 

20 A3 D9 

Bl Be 

08 
CS 

20 98 
2B 

DO D6 
FO BF 



D9 



C8 
Bl 
C9 



BO 



FO OB 
C9 AB 
E'O 04 
C9 B4 
DO E2 



0883- 
0884- 
0887- 

0B89- 
Q8SB- 
08BD- 
088F- 

0891- 

0392- 
0894- 
0895- 
0896- 

0898- 
0899- 
089B- 
089C- 
089E- 
O8A0- 
0BA3- 
08A6- 
08A8- 



88 

8C 58 OB 
AO 01 
A2 02 
Bl B8 

C9 22 

FO 07 

88 

91 BB 
C8 
C8 
DO T3 

Cft 

DO E6 
88 

A9 20 
91 B8 
AC 5B OB 
20 Fl 09 
90 12 
20 A3 D9 



08AB- AO 00 



1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2 200 

2210 

2220 

2230 

2 240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

234Q 

2350 

2360 

2370 

2 380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

25G0 

2570 

2550 

2590 

2600 

2C10 

26^0 

2630 



LOOP. 2 
LOOP. 3 



LOOF.4 



LOOP . 5 



JER 
JSR 
BCS 
JMP 
LDY 

LDA 
CMP 
BEQ. 
CMP 
BNE 

I NY 
LDA 
BEQ 
CMP 
BNE 

I NY 

JER 
LDY 
BEQ 

LOOP . 1 

JRR 
LDA 
PHP 
I NY 
JSR 
PLP 
B?JE 
BEQ 

AHPER. FOUND 
INY 
LDA 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 



SKIP. TWO. BYTES 
CHECK. END 
LOOP . 2 
THE. END 
#?00 

(CURRENT. LOC) , Y 

#AMFER 

AMPER. FOUND 

ttIF IS IT AN IF THEN STATEMENT 

LOOP.l 



(CURRENT. LOC) , Y 
LOOP . 1 

#THRN LOOK FOR A "THEN" 
LOOP. 4 

IS THE NEXT COMMAND AN "S," 
ADDTXTPTR 
#500 
LOOP. 3 ...ALWAYS 

DATAN GO TO NEXT LINE 
(CURRENT. LOC) ,Y 

SAVE STATUS (AT END OF A LINE?) 

ADDTXTPTR 

LOOP . 2 
LOOP 



(CURRENT. LOC) ,Y 

#GOSUB 

REPLACE 

#GOTO 

REPLACE 

ft ON 

LOOP . 1 



DEY 
STY 
LDY 
LDX 
LDA 
CMP 
BEQ 

DEY 
STA 
INY 
INY 

BNE 

DEX 

BNE 
DEY 
LDA 

STA 
LDY 



TEMP. OFFSET 

#51 MOVE CODE AFTER Si TILL SECOND QUOTE 

#$02 

(CURRENT. LOC) ,Y GET A CHARACTER 



.3 



FOUND QUOTE 



(CURRENT. LOC} , Y 



ALWAYS 



ON SECOUND QUOTE 



REPLACE LAST LETTER WITH A SPACE 



# SPACE 
(CURRENT. 



LOC) r Y 
TEMP. OFFSET 
JSR SCAN. TO. QUOTE LOOK FOR A QUOTE 
BCC REPLACE. 2 
JSR DATAN GOTO THE END OF THE LINE 



NEXT .LINE 



LDY #500 
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Program 

Replace 



08AD- 


BI B8 




2640 




LDA [CURRENT. LOO) ,'l CHECK FOR A COMMA (ON) 


08AF- 


C9 




2650 




INY SKIF OVER THE EOL MARKER 


OBB0- 


C9 2C 




2660 




CMP #COMMA 


OBB2- 


FO 06 




2670 




BEQ REPLACE. 2 


08B4- 


20 98 


D9 


2680 




OSK ADDTXTPTR 


08B7- 


4C 3 2 


08 


2690 

2710 




JMP LOOP CONTINUE THE SEARCH 








2720 


REPLACE . 2 


08BA- 


8C 58 


OB 


2730 




STY TEMP. OFFSET SAVE THE OFFSET TO THE QUOTE 


08BD- 


A5 B8 




2740 




LDA CURKF.NT.LOC SAVE CURRENT LOCATION 


08BF- 


85 77 




2750 




STA TEMP 


08C1- 


A5 B9 




2760 




LDA CURRENT. LOC+1 


08C3- 


85 78 




2770 
2780 




STA TEMP+1 


OBC5- 


A5 67 




2790 




LDA AP. START SEARCH FOR A LABEL 


08C7- 


B5 B8 




280O 




STA CURRENT. LOC 


08C9- 


A5 68 




2810 




LDA AP.S'L'ART+1 


oecB- 


85 B9 




2820 

2840 




STA CURRENT. LOC+1 








2850 


SEARCH 


.LABEL 


08CD- 


20 DA 


09 


2860 




JSR SKIP. TWO. BYTES IGNORE NEXT LINE POINTER 


08DO- 


20 DA 


09 


2870 




JSR SKIP. TWO. BYTES 


08D3- 


20 E7 


09 


28BO 




JSR CHECK. END 


08D6- 


BO 03 




2890 




BCS .1 


0808- 


4C E5 


OA 


2900 




JHP LINE. NUMBER. NOT. FOUND 


08DB- 


AO 00 




2910 


.1 


LDY #?00 


08DD- 


Bl B8 




2920 




LDA (CURRENT. LOC) ,Y IS IT A REM??? 


08DF- 


C9 B2 




2930 




CMP (fREM 


OBE1- 


FO OA 




2940 




BEQ FOUND. LABEL YES! ! '. 


08E3- 


l 20 A6 


D9 


2950 




JSR REMN NO, SO SKIP TO END OF LINE 


08E6- 


C8 




2960 




INY 


08E7- 


20 98 


d9 


2970 




JSR ADDTXTPTR CURRENT. LOC 


08EA- 


4C CD 


08 


2980 
3000 




JMP SEARCH. LABEL 








3010 


FOUND . 


LABEL 


08ED- 


C8 




3020 


.2 


INY SKIP THE REM STATEMENT 


08EE- 


Bl B8 




3030 




LDA [CURRENT. LOt:) ,Y GET A VALUE 


08F0- 


DO 03 




3O40 




BNE .1 AT THE END SO SKIP IT 


08F2- 


4C 29 


09 


3050 




JMP NO. MATCH ILLEGAL LABEL, SKIP IT 


08F5- 


C9 21 




3060 


.1 


CMP #SPACE+1 IGNORE EVEFTHING = < THAN A SPACE 


08F7- 


90 F4 




3070 




BCC .2 


DBF9- 


8C 57 


OB 


3080 




STY OFFSET. 2 SAVE THIS OFFSET 


08FC- 


AC 58 


ua 


3090 




LDY TEMP. OFFSET SKIP TO WITHIN THE QUOTES 


08FF- 


C8 




3100 


.3 


INY 


0900- 


Bl 77 




3110 




LDA (TEMP),Y FIND FIRST LEGAL CHARACTER 


0902- 


FO 2 5 




3120 




BEQ NO. MATCH 


0904- 


C9 21 




3130 




CMP #SPACE+1 LOOK FOR A LEGAL LABEL 


0906- 


90 F7 




3140 




BCC .3 


0908- 


BC 56 


OB 


3150 

3160 




STY OFFSET. 1 SAVE THE SECOUNP OFFSET 








3170 


CHECK. 


LABELS 


090B- 


AC 56 


OB 


3180 


.1 


LDY OFFSET. 1 


090E- 


Bl 77 




3190 




LDA (TEMP).Y GET BYTE FROM THE "TO" LOCATION 


0910- 


FO 36 




3200 




BEQ FINAL. CHECK AT END OF LABEL? 


0912- 


C9 22 




3210 




CMP #"" 


0914- 


FO 32 




3220 




BEQ FINAL. CHECK 


0916- 


C9 20 




3230 




CMP #SPACE 


0918- 


90 2E 




3240 




BCC FINAL. CHECK 


09 1A- 


AC 57 


OB 


3250 




LDY OFFSET. 2 


09 1D- 


01 B8 




3260 




CMP (CURRENT. LOC) , Y ; 


091F- 


DO 08 




3270 




BNE NO. MATCH 


0.921- 


EK 56 


OB 


3 280 




INC OFFSET. 1 


0924- 


EE 57 


OB 


3290 




INC OFFSET. 2 


0927- 


DO E2 




3 300 

3320 




BNE .1 








33 30 


NO. MATCH 


0929- 


C9 20 




3340 




CMP #SPACE 


092B- 


DO 11 




3350 




bne .1 continued on page 35 



Dynamic 



ox- 



«'? 




Checksums 



1410 


- SC8D9 


1420 


- $77D8 


1430 


- *E2A0 


1440 


- SOAE6 


1450 


- S3C33 


1460 


- $7544 


1470 


- $5515 


1480 


- S053D 


1490 


- S3C44 


1500 


- $7DCF 


1510 


- *E033 


1520 


- S66C3 


1530 


- $B93F 


1540 


- $116A 


1550 


- «CF45 


1560 


- SF49A 


1570 


- $679A 


1580 


- SC75E 


1590 


- «7BCF 


1600 


- $9DAA 


1610 


- $7F4C 


1620 


- S5B4A 


1630 


- $ADFE 


1640 


- S3D83 


1650 


- SDA05 


1660 


- «708C 


1670 


- SDD8A 


1680 


- $5E82 


1690 


- *697A 


1700 


- SEOFF 


1710 


- *064A 


1720 


- S0F79 


1730 


- $50FB 


1740 


- «1AC7 


1750 


- $EEE4 


1760 


- S7AED 


1770 


- $B878 


1780 


- $35E5 


1790 


- $9C77 


1800 


- SD4C8 


1810 


- «BFE7 


1820 


- S4C65 


1830 


- S8637 


1840 


- S24A6 


1850 


- $494F 


1860 


- *9487 


1870 


- tBCAF 


1880 


- *2C50 


1890 


- $57C4 
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By Robb Canfield 

Have you ever deleted what you 
thought was a useless line from your 
longest program and soon after wit- 
nessed the crash of the century? Maybe 
you were convinced the line was spare 
baggage, then found that other lines in 
the program needed to access that line. 

Line Find was designed to prevent 
this problem before a critical line is 
deleted. 

It is an ampersand routine which will 
reveal whether a particular line number 
is called by other lines in the program. If 
the answer is affirmative, Line Find lists 
which lines would be affected if the line 
in question were no longer present. If no 
dependent lines are found, the question- 
able line can be deleted. Otherwise, the 
modification should not be made. 

Using Line Find 

To place Line Find in memory, first 
type in the program listing. When fin- 
ished, save Line Find with 
BSAVE LINE FIND A$290,L$132 

White Line Find is in memory, load 
the Applesoft program to be examined. 
When you find a line to delete, or just a 
line to which you have forgotten the 
calls, activate Line Find with the com- 
mand 
&L LINE NUMBER 

Line Find will search through your 
program and display in a column the 
numbers of all lines which use the cho- 
sen line number as a point of reference, 
lb see any line, list the desired line num- 
ber. If there are no calls to the chosen 
line, "NONE" will be printed. 

The Line Find program wUl leave cer- 
tain other ampersand features active in 
memory. For example, Line Find can be 
in memory at the same time as your 
favorite renumber program. This will 
allow you the advantage of using the 
programs simultaneously. 



♦ 
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100 LlNL FJND LIKE FIND LINE FIND LINE FUJI) 
■IND LINE I Mjj I i' 1 * ' Hi j | III I Llh'lL^FJ-UD 





[no i ; '■ ' ijf "SL*^.^jij' ' M ' **Jnd 

"FIND LTRE t^.*^5^FlND L^JD FIND 

led linl: find lihe find line find line find 



Program 



looo 

1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
11 10 
1120 
1130 
1140 
1150 
1160 
1170 
HBO 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1260 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 



.OR S29D 



.TF LINE FIND 
LDY 110 

nxchar im STMESS,Y 

BMI PR IT 

JMP IN IT. LINE. SEARCH 
PHIT JSR COUT1 

INY 

BNE NXCHAR 
STHESS .US 8DSD 

.AS -"LINE FIND INSTALLED." 

.HS 8D 

.AT -"USE SL 'LINENUM' <RET> 

#__--_-^~ , m* 

* FINDS ft LINE NUMBER IN AN 

* APPLESOFT PROGRAM. USES THE 

* AMPERSAND COMMAND WITH AN 

* "L" PARAMETER. 



ZERO PAGE EQUATES 



TXTPTR 
LOWTR 
CURL IN 
AP . START 
NEXT. OFFSET 
ADDON .EQ 



EQ 5B3.B9 
EQ 59D,9C 
EQ 578,79 
EQ 567,68 
Eg 576, 
5D998 



77 



ADD V TO TXTPTR 



* TOKENS BEING USED 



GOTO 

GOSUB 

THEN 

FOL 

SPACE 



.EQ ?AB 

.Eg 5 BO 

.Eg SC4 

.EQ $3A 

.EQ 520 



* APPLESOFT ROUTINES USED 
* --— ~-. — 

CIIRGET .EQ ?B7 
HARM. BASIC ,EQ SD4 3C 
REMN -EQ 5D9A6 
DATAN .EQ $D9A3 
L1NPRT .EQ SED24 
SYNERR .EQ 5DEC9 



* MONITOR ROUTINES 

* 

CROUT .EQ SFD8E 
AMPER .EQ S3F5 
COUT1 .EQ 5FDFC 
1NIT. LINE. SEARCH 



fr-lr-Tri 



m 






r-fr-iir-ffri 



m 



n^???f ?" 



i— 1— Jj— i|i — iJJ — 1j — Jj— Jm 



V 



r^ 



m 



H^^H^H Replace 



Program 



09 2 D- 
092E- 

0931- 
093 3- 
0935- 
093 7- 
0938- 
093A- 
09.3C- 
093E- 
0941- 
0942- 
0945- 



094R- 
094B- 
094D- 
094F- 
0951- 
0953- 
0955- 
0957- 
09 5.9- 
095B- 
095C- 



095E- 
0961- 
0962- 
0965- 
0968- 
096B- 
096D- 
0970- 
0972- 
09 7 4- 
0976- 
0978- 
097A- 
097C- 
097F- 
0980- 
0982- 
0985- 
0988- 
Q98A- 
09BC- 
098E- 

0990- 
0992- 



0995- 
0998- 
099B- 
099D- 
099E- 
09AO- 
09A1- 
09A3- 
09A5- 



B] 88 
FO 17 



.2 



C9 

90 



20 
1-3 



DO 03 
C8 

DO F3 
C9 22 
FO OA 

20 A6 m 
ce 

20 98 D9 
4C CO OS 



AC 57 OB 
Bl B8 
FO OF 
C9 22 
FO OB 
C9 20 
90 07 
FO 2 
BO CE 

ce 

DO ED 



20 A6 D9 
C8 

20 98 09 
20 DA 09 
20 G7 09 
BO 03 
4C 01 OB 
AO 02 
Bl B8 
C9 B2 
FO E6 
AO 00 
Bl B8 
6D 5 3 OB 

ce 

B] B8 
SD 5 4 OB 
20 91 OA 
A5 77 
85 B8 
A5 78 
85 B9 

AO FF 
20 FI 09 



AE 50 02 
BO 51 02 
91 B8 
CA 

FO IS 

C8 

Bl B8 
FO 04 
C9 2 2 



3360 

3 370 

3 380 

3 390 

.5400 

3410 

3420 

1430 .3. 

3 440 

3 450 .1 

3460 

3470 

3480 

3490 

3 510 

3520 FINAL 

3530 

3540 .0 

3550 

3500 

3570 

3580 

3590 

3600 

3610 

3620 .1 

3630 

3640 

36 50 MATCH 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 .1 

3740 

3750 

3760 

3770 

3780 

3790 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3680 

3890 

3900 

3910 

3920 .3 

3930 * 

3940 * 

3950 

3960 .4 

3970 

3980 

3990 

4000 

4010 

4020 

4030 



LDA 
BEQ 
CMP 
BCC 
BNE 
INY 
BNE 
CMP 
BEg 
JSR 
INY 
JSR 
JMP 



(curp-:ht.lo-c! ,'i 

FINAL. CHCC1C 
# SPACE 
FINAL. CHECK 
.3 



FINAL. CHECK 

REMN POINT TO THE END OF THE LINE 

PT TO FIRST BYTE .OF' NEXT LINE 
ADDTXTPTR 
SEARCH. LAB KEEP LOOKING FOR PROPER LAB 



CHECK 

LDY OFFSET. 2 MAKE SORE THE LABEL HAS ENDED 

LDA (CURRENT. LOCi ,'i 

BEQ MATCH 

CMP #"" 

BEg MATCH 

CMP tSPACE 

BCC MATCH 

BEQ .1 

BCS NO. MATCH NO MATCH, SOCONTINUE SEARCH 

INY 

BNE .0 ...ALWAYS 



JSR REMN CO TO THE END OF THE LINE 

INY AND ONE MORE 

JSR ADDTXTPTR 

JSR SKIP. TWO. BYTES SKIP THE LINE OFFSET 

JSR CHECK. END 

BCS .1 

JMP NO. LINE. AFTER. REM 

LDY #52 MAKE SURE THIS IS NOT A REM 

LDA (CURRENT. LOO ,'i 

CMP t*REM A REM? 

BEQ MATCH YES SO GOTO NEXT LINE 

LEV #50 GET THE LINE NUMBER 

LDA (CURRENT. LOC) ,'i 

STA LINE. NUMBER 

INY 

LUA ( CURRENT. I.OC) ,Y 

STA LINE.NUMBER+1 

JSR HEX. ASCII 

LDA TEMP MOVE LINE TO CHC-E TO COR LOC 

STA CURRENT. LOC 

LDA TEMP+1 

STA CURRENT. LOC +1 



LDY #5FF SCAN FOR A QUOTE 
JSR SCAN. TO. QUOTE 



LDA 
STA 
LDX 
LDA 
STA 
DEX 
BEQ 
INY 
LDA 
BEQ 
CMP 



#520 WRITE OV.F1' 1ST QUOTE W SPACE 

(CURRENT. LOC) , Y 

LENGTH LENGTH OF NUM f'O SUB FOR LAB 

BUFFER, X GET THE VALUE 

(CURRENT. LOC) ,Y AND SAVE IT 

DONE 

(CURRENT. LOC) ,Y DO WE NEED MORE ROOM? 

.5 

#"" 
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t 




■^ 


100 LINF FINI: 


LINE FIHD LIKE FIND LINE FIND 


ll^MM 


^FIND 


LIME FipP^f^aaiL^LIKE^Eiill) 


■ LINE 


■pStliJ 

Fife 


■'- ^i *— tit; j 


Vine 




4^P^^*cfe^3^^ jr fjn ° 


17?N*H« 


^FIND 
E FIND 


lWe ^^^-e^Ei^IKD LINJ1 FIND 
LINE FIHD LINE FIHD LINE FIND 


ISO L\ti 









1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

17 70 

1780 

ENON 

1790 

1800 

1810 

1620 

1630 

1840 

1850 

1360 

1370 

1860 

1B90 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2060 

2090 

2100 

2110 

2120 

2130' 

2140 

2150 

2160 

2170 

2180 

2190 

220O 

2210 

2220 

2230 

2240 

2250 



LDA AMPER+1 
STA OLD.AMFEK+1 
LDA AMPEIH2 
STA OLE.AMFER+2 
LDA #LINE.SF.ARCH 
STA AMPER+1 
LDA /LINE'. SEARCH 
STA AMPER+2 
RTS 



OLD.AMPER 



PRMESS 

NEXT 



TXTTBLE 



JMP $FFFF 

LDY #TBLLEN 

LDA TXTTBLE-1,Y 

JSR COUT1 

DKY 

BNE NEXT 

BEO. WARM 

.AS -" 



LINE -SEARCH 

CMP tf'L IS IT A PROPER- COMMAND 
BNE OLD.AMPER 
INIT. SEARCH 

LDX TXTPTR TRANSFER TXTPTR TO LOWTR 

I NX 

STX LOWTR LOWTR IS IXC IN PAGE 

LDA TXTPTR+1 TWO THAT THE LINE NUMBER 

STA LOWTR+1 IS STORED AT. 

LDA AP. START 

STA NEXT. OFFSET NEXT. OFFSET IS LOC 

LDA AP.5TART+1 IN MEMORY WHERE THE WE 

STA NEXT.OEFSET+1 READING FROM PROG 



SEAR.CH.LIM: 

LDA NEXT. OFFSET 

STP. TXTPTR 

LDA NEXT.OFFSET+1 

STA TXTPTR+1 

LDY #$03 MV INFO FR LINE TO BUFFERS 
.1 LDA (TXTPTR) ,Y 

STA NEXT. OFFSET, Y 

DEY 

BPL .1 

ORA NEXT.OFFSET+1 AT END OF PROGRAM? 

BNE WHAT 

LDA $FF 

BEg PRMESS 




LDA 
STA $FF 



PULL OFF RETORN ADDRESS 



PL A 
PLA 
WARM JMP WARM. BASIC RETURN TO BASIC 



WHAT 

LUY #53 
SEARCH. LINE. 2 

I NY 

LDA (TXTPTR) ,Y 

BEQ END. LINE 

CMP #■'* IF A QUOTE THEN SKIP TO END 

BNE .1 






Lil G 



U4UI 



i- 



- 



L^J ITJ flA 



i 



f=i 



m 



L -4|l-AUI-4^-4 



ni 



«NNH Program 

Replace 



09A7- DO EF 



09A9- 
09AC- 
09AD- 
09AE- 
ngai- 
09B3- 



09B5- 
09B6- 

09B9- 
09BC- 



20 98 
S A 
AS 

20 51 
AO 00 
FO El 



C8 

20 96 
20 02 
4C AB 



09BF- 


AO 


04 


Q9C1- 


A9 


00 


09C3- 


91 


AF 


09C5- 


88 




09C6- 


10 


FB 


09C8- 


A5 


BO 


09CA- 


85 


6A 


09CC- 


A5 


AF 


09CE- 


18 




09CF- 


69 


04 


09D1- 


85 


69 


09D3- 


90 


02 


09D5- 


E6 


6A 


09D7- 


4C 


F.2 



09DA- 


E6 


B8 


09DC- 


DO 


02 


09DE- 


E6 


B9 


09E0- 


E6 


B8 


09E2- 


DO 


02 


09E4- 


E6 


B9 


09E6- 


60 





09E7- 


A5 


AF 


09E9- 


38 




09EA- 


E5 


B8 


09EC- 


A5 


BO 


09EE- 


E5 


B9 


09F0- 


60 





4040 
4050 
4060 
D9 4070 
4080 
4090 
OA 4100 
4110 
4120 
4130 
4140 
4150 
4160 
D9 4170 
OA 4180 
08 4190 
4220 
4230 
4240 
4250 
4260 
4270 
4300 
4 310 
4320 
4330 
4340 
4350 
4360 
4370 
4 380 
4 390 
4400 
4410 
4420 

44 30 
4440 

D4 4450 
4470 
4480 
4490 
4500 
4510 
4520 

45 30 
4540 
4550 
4560 
4570 
4580 
4590 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
47 70 



.5 



NO, JUST CONT REPLACMENT 



JSR ADDTXTPTR SET UP FOR THE MOVE 



TXA 


TRANSFER X TO Y 


TAY 


INSERT Y BYTES INTO COD 


JSR 


INSERT. Y. BYTES 


LDY 


#$00 


BEQ 


.4 ...ALWAYS 



DONE 



INY GO PAST THE LINE NUMBER 

JSR ADDTXTPTR POINT B8 TO THIS SPOT 
JSR DELETE. TO. EOL 
JMP' NEXT. LIME 



UPDATE THE END OF THE PROGRAM 
POINTER (RELOCATE USES LOMEM AS 
THE END OF PROGRAM POINTER. 



STOKE ZEROS AT 

END OF-. PROC 



LDY #54 

LDA #$00 

STA (AP.END) ,Y 

DEY 

BPL ,1 

LDA AP.END+1 

STA LOMEM+1 

LDA AP.END 

CLC 

ADC #$4 

STA LOMEM 

BCC .2 

INC LOMEM+1 

JMP RELOCATE RESET 

LINE OFFSET POINTERS 



* SKIP THE LINE OFFSET 



SKIP. TWO. BYTES 

INC CURRENT. LOC 

BNE .1 

INC CURRENT. LOC+1 
.1 INC CURRENT. LOC 

BNE .2 

INC CURRENT. LOC+1 
.2 RTS 



CHECK TO SEE IF PAST END 
CC IF PAST END. 



CHECK. END 



LDA AP.END 

SEC 

SBC CURRENT. LOC 

LDA AP.END+1 

SBC CURRENT. LOC+1 

RTS 
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Program 







4790 


#_ 














■UlOO 


* 


LOOK 


FOR 


A yl./OTL, 


THE CARRY 






4B10 


* 


FLAG 


hi CLEARED IF 


ONE IS 






4B20 


* 


FOUND 


SET 


IF NOT. 








4830 


























mm 
















4860 


SCAN. TO 


guoT 


E 




09F1- 


cg 


48 70 


.1 




INY 




LOOK FOR A QUOTE MARK 


09F2- 


Bl L!8 


4880 






LDA 


(CURRENT 


.LOC) r Y 


09F4- 


FO Oft 


4890 






BEQ 


.2 




09F6- 


C9 3A 


4900 






CMP 


#v 




09F8- 


FO 06 


4910 






BECj 


,7 




09FA- 


O 22 


4920 






CMP 


#"" 




Q9FC- 


DO F3 


4930 






BNE 


.1 


CONTINUE THE SEARCH 


U9FE- 


18 


4940 






CLC 




NO ERROR 


09FF- 


60 


4950 

4960 






RTS 






0AO0- 


38 


4970 


.2 




SEC 




NO QUOTE 


OAOl- 


60 


4980 
5020 
5030 


*_ 




RTS 










5040 


* 


ROUTINE 


TO DELETE 


BYTES 






5050 


* 


FROM 


AN APPLESOFT 


PROGRAM 






5060 


* 


ENTER WITH CURRENT 


.LOC 






5O70 


+ 


CONTAINING THE TO 


LOCATION 






5080 


* 


THE FROM 


LOCATION 


IS FOUND 






5090 


* 


BY SCANNING TO THE 


END OF THE 






5100 
5110 
5130 


* 
A _ 


APPLESOFT 


LINE. 






















5140 


DELETE. TO. EOL 




OA02- 


AO FF 


5150 






LDY 


#5FF 


FIND END OF STNT 1 : OR 0')) 


OA04- 


ce 


5160 


.1 




INY 






0AO5- 


Bl B8 


5170 






LDA 


(CURRENT 


.LOC) ,Y 


OA07- 


FO 09 


5180 






BEQ 


DELETE . Y 


.BYTES 


0AO9- 


C9 3A 


5190 






CMP 


M I , 1 




UAOB- 


FO 05 


5200 






BEQ 


DELETE. Y 


.BYTES 


OAOD- 


C9 22 


5210 






CMP 


#"■' 




OAQF- 


DO F3 


5220 






BNE 


.1 




OA11- 


cb 


5230 

5240 






INY 










5250 


DELETE. Y 


.BYTES 




0A12- 


BC 55 OB 


5260 






STY 


NUM. BYTES 


OA15- 


A2 03 


5270 






LDX 


#53 


COUNTER FOR ■£&££)& 


OA17- 


A5 88 


5280 






LDA 


CURRENT. 


LOC GET TO LOCATION 


0A19- 


6D 28 OA 


5290 






STA 


GET1+1 




OA1C- 


BD 2B OA 


5300 






STA 


PUTl-ll 




OAIF- 


A5 B9 


5 310 






LDA 


CURRENT. 


LOC.+ l 


OA21- 


BD 29 OA 


5 320 






STA 


GET1+2 




OA24- 


8D 2C OA 


5330 
5340 






STA 


PUT1+2 








5350 


GET1 








OA27- 


B9 FF FF 


5360 






LDA 


5FFFF,Y 


GET A VALUE (OFFSET WITH 






5370 


PUT1 






7 -REG? 


OA2A- 


8D FF FF 


5380 






STA 


5FFFF 




OA2D- 


DO 10 


5390 






BNE 


.1 


NOT S ZERO SO DON'T COUNT 


OA2F- 


CA 


5400 






DEX 




COUNT THE ZERO 


0A3O- 


DO OF 


5410 






BNE 


.11 


NOT DONE, SO CONTINUE 


0A32- 


38 


5420 






SEC 




UPDATE END OF PR POINTER 


OA3 3- 


A5 AF 


5430 






LDA 


AP.END 




OA35- 


ED 55 OB 


5440 






SBC 


NUM. BYTES 


OA38- 


B5 AF 


5450 






STA 


AP.END 




OA3A- 


BO 02 


5460 






BCS 


.2 


NO BORROW 


OA3C- 


C6 BO 


5470 






DEC 


AP.END+1 




OA3E- 


60 


5480 
5490 


.2 




RTS 




RETURN TO CALLER 


QA3F- 


A2 03 


5500 


.1 




LDX 


#S3 


RESET COUNTER 


OA41- 


EE 28 OA 


5510 


.11 




INC 


GET1+1 


DO NOT RESET THE COUNTER 


0A44- 


EE 2B OA 


5520 






INC 


PUT1+1 




0A47- 


DO DE 


5530 






BNE 


GET1 




0A49- 


EE 29 OA 


5540 






INC 


GET1+2 


II 



Program 



HERE 
.21 



2260 .0 

2270 

22HO 

2290 

2 300 

2310 

2320 

2 330 .1 

2 340 

2350 

2360 

2370 

2 380 

2 390 

2400 SEARCH 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 

2500 

2510 

2520 

25 30 

2540 

2550 

2560 

2570 

2580 

2590 

2F>00 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 MATCH 

2690 

2700 

2710 

2720 

2730 

2740 

2750 END. LINE 

2760 

2770 

2780 

2790 NO. MATCH 

2800 

2810 

2R20 

2B30 

2840 

2850 

2860 

2870 

2880 

2890 .1 

#68 

2310 

;'920 

2940 JMPTOSEA 
^50 



.41 



INY 

LDA (TXTPTR) ,Y 

BEQ. END. LINE 

CM;' #"■ 

BNE .0 

INY 

LDA (TXTPTR), Y 

CMP ft GOTO 

BEQ SEARCH 

CMP #GOSUB 

BEQ SEARCH 

CMP #THEN 

BNE SEARCH. LINE. 2 



INY 

LDA (TXTPTR),Y 

CMP ft I " 

BEQ SKIP. QUOTE 
JSR ADDON 
LDV ft$FF 

INY 

LDA (TXTPTR) r Y NUMBER FOUND 

BEQ .41 

CMP ftGOTO 

BEQ FIXBUG 

CMP #GOSUB 

BEQ FIXBUG 

CMP ( LOWTR) , Y 

BE2 .4 

CMP &EOL 

BEQ ,41 

CMP ft ' , ON A ON STATEMENT? 

BNE NO. MATCH NO, SO THERE IS NO MATCH 



LDA ( LOWTR) , Y 
BNE NO. MATCH 



LDX CURLIN 
LDA CURLIN+1 
JSR LINPRT 
LDA #1 
STA SFF 
JSR CROUT 

JSR REMN MOVE TO END OF LINE 
JMP SEARCH. LINE 



LDA (TXTPTR) ,Y 



CMP #', 
BEQ SEARCH 
CMP # ■ 

BCC .1 

CMP #$3A 

BCS .1 

INY 

BNE NO. MATCH 



ARE WE IN A ON STATEMENT 
YES SO CONTIHUE SEARCH 
IS IT A DIGIT 

PAST DIGITS 

LOOK FOR A COMMA 



JSR DATAN GOTO NEXT STATEMENT 

CMP #500 AT END OF LINE? OR STMENT 

13NE JMPTOSEA 

JMP SEARCH. LINE 

JMP SEARCH. LINE. 2+1 
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LINE FIND LINE FIND LINE FIND LINE 
[ND LINE Fnp-*=^?*!S££JD LINE. 
LI 
UD LT^v 




LINE 
1ND LINE F^.*-4TiA^FIND LIND 
LINE FIND LINE FIND LINE FIND LINE 



Program 



2:953 










J9?0 










3980 


SKIP 


QUOTE 




2990 






INY 


POINT TO END OF QUOTE 


3UO0 






LDA 


ITXTFTR) ,Y 


3010 






BEQ 


NO. MATCH 


3020 






CMP 


#'" 


3030 






BNE 


SKI P. QUOTE 


3010 






INY 


POINT, TO AFTER QUOTE 


3050 






BNE 


NO. MATCH ...ALWAYS 


3060 










3070 


TBLLEN 


-EQ 


?0S 


3080 


FIXBUG 


INY 




3090 






BNE 


HERE 



Checksums 



029D- 
02A0- 
02A8- 
02BO- 
02B8- 
02CO- 
2C8- 
02D0- 
C2D8- 
O2E0- 

02E8- 
02F0- 
02F8- 
0300- 
0308- 
0310- 
C31B- 
0320- 
032B- 
0330- 

0338- 
G340- 
0348- 
350- 
035B- 
0360- 
0363- 
0370- 
0378- 
O3B0- 

0388- 
0390- 
0398- 
03A0- 
03A8- 
03BO- 
03B8- 
03CO- 
03CS- 



AO 00 
AD 02 
FO FD 
C9 CE 
AO C9 
C5 C4 
A6 CC 
CE D5 
D4 D5 
03 8D 

n 02 
03 8D 
AO 05 
88 DO 
CF CE 
E8 B6 
67 85 
76 85 

03 Bl 
F3 05 

BF A9 

3C D4 

53 C9 

FO 4A 

BB C9 

04 CS 
C9 22 
FF C8 
FO 52 
FO EF 



B9 

30 03 
C3 DO 
C5 AO 
CE D3 
AE 8D 
AO A7 
CD A7 
D2 CE 
F6 02 

AS OA 
F7 D3 
By 04 
F7 FO 
C9 4C 
9B A5 

76 A5 
BB A5 
B8 99 

77 DO 



4C DE 
F2 3D 
C6 C9 

D4 CI 
D5 D3 
CC C9 
AO BC 
BE 20 
AD F7 

8D F6 
60 4C 
03 20 
3A 8D 
DO E7 
B9 85 
68 85 
77 B5 
76 00 
OD A5 



02 20 
SD CC 
CE C4 
CC CC 
C5 AO 
CE C5 
D2 CS 
AD F6 

03 3D 

03 A9 
FF FF 
FO FD 
C5 CE 
A6 BB 
9C A5 
77 A5 
B9 AO 
BB 10 
FF FO 



00 85 FF 
AO 03 C8 
22 DO OC 
C9 22 DO 
A3 FO 08 
C4 DO DF 
FO S4 20 
Bl B8 FD 
C9 BO FO 
C9 3A FO 



68 68 4C 
Bl BB FO 
C8 Bl BB 
F7 C8 Bl 
C9 BO FO 
C8 Bl B8 
98 D9 AO 
14 C9 Afl 
4E Dl 9B 
04 C9 2C 



55BA1 
5 3 IAD 
514FE 
5F5DB 
S014E 
SC24A 
SC781 
SEE91 
52BAE 
5C3FD 

564E4 
S04D1 
SC7D5 
58020 
SAFA2 
S074F 
S5E07 
S3D81 
S1FAE 
SE92F 

5A54D 
58170 
SB444 
S5B6C 
33BB3 
5A36D 
S55CA 
S5DA8 
$7253 
53SB7 



DO IB Bl 9B DO 
A5 79 20 24 ED 
FF 20 8E FD 20 
IF 03 Bl B8 C9 
C9 30 90 07 C9 
C8 DO EF 20 A3 
DO 03 4C IF 03 
C8 Bl B8 FO DD 
F7 C8 DO D6 C8 



14 A6 

A9 01 

AE, D9 

2C FO 

3A BO 

D9 C9 

4C 45 

C9 22 

DO 9B 



78 SE7B7 
85 564A2 

S6FA3 
55AFD 
S8AFE 
5D5A7 
SD754 
SE087 
S030A 



Br^W 



iA 



ft-iri 



yLi 



fcitelHWH 



y^^^s 



Ffr^pftr^ 



j n ff7 rr? m nrr rvT 1-1 



L. 



JL 



1 1 



fe 



JLi 



Program 

Replace 



0A4C- 
0A4F- 



F.C 
DO 



2C OA 



0A51- 
QA53- 
Oft 5,6- 
0AS9- 
0A5B- 
0A5E- 



A5 

yii 

AS 
3D 
8D 



AF 

5 2 OA 

65 OA 
BO 

S3 OA 

(-:> OA 



0A61- AD FF FF 



0A64- 
0A67- 
0A6A- 
0A6C- 

0A6F- 

0A72- 

OA^S- 
0A78- 
0A7B-- 
0A7D- 
0A7F- 
OA82- 
0A84- 
GA86- 
0A87- 
0A8B- 
0A8A- 
0A8C- 
0A8E- 
0A90- 



99 
AD 
DO 
CE 
CE 

CE 
CE 
AD 
C5 
BO 
AD 
C c - 
DO 
98 
]o 
6S 
85 
90 
E6 
60 



FF FF 

62 OA 
06 

63 OA 
66 OA 

62 OA 
65 OA 
62 OA 
BS 
E2 

6 3 OA 
B9 
DB 



AF 
02 
BO 



0A91- 
0A93- 
0A94- 
0A97- 



0A9A- 
0A9C- 

0A9F- 
0AA2- 
0AA4- 



A9 
AS 
8D 
8D 



A9 
8D 
8D 

A2 

ia 



00 



51 02 

50' OS. 



00 

59 OB 
5A OB 
10 



5350 
5560 

55 70 
■ 590 
5600 
5MC 
5620 

56 30 
■3640 
5670 
5o80 
5690 
5 700 
5 710 
5 720 
5 7 30 
5740 

5750 
5760 
57",0 
5730 
5 790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
5890 
5890 
5900 
5910 
5920 

59 30 
5940 
5950 
5960 
5970 
5980 
5990 
6030 
6040 
6050 
6060 

60 70 
6080 
6090 
6100 
6110 
6130 
6i40 
6150 
6160 
6170 
61B.0 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6270 



INC PUT1+2 
BNE GET1 



MAKE MORE ROOM FOR A 1 IN '-J. 
MQVR BYTES F'ROf-1 CUFEIEN j' . l.OC 
TC C i, P c 'i3 N T t 1 ,Qf : f Y , TO fM-XV. 
R0011 FOB l-VORIi INFO. 



INSERT 



.BYTES 
LDA AP.ENP 
STA GET2+1 
STA i'UT2+l 
LDA AP.ENDt-1 
STA GET2+2 
STA PUT2+2 



GET 2 
PUT2 



LDA 5FFFF 

STA 5FFFF,Y 
LDA GET2+1 
BNE .1 
DEC GET2+2 
DEC PUT2+2 



SET A BYTE 



AND SAVE IT 



DEC 
DEC 

LDA 
CMP 
BC3 
LDA 

earn 

BNE 
TYA 
CLC 
ADC 
KTA 
BCC 
INC 
RTS 



GET2+1 

PUT2+1 

GET2+1 DONE? 

CURRENT. LOC 

GET2 NO. SO CONTINU)-: 

GET2+2 MAYBE!? 

CORRFN'T.LOC+1 



GET2 



NO, SO CONTTMUi-' 
UPDATE END OF 

h'ROG, ;AM COZ 



NT EF 



AP . END 
AF.END 
.2 
AP.END+1 



RETURN TO CALLER 



CONVERSION OF A BINARY NUMBER 
TO DECIMAL ASCII. 
THE ASCI] VALUE IS STOfcHD IN 
A REVERSED ORDER 



LDA #500 

TAY 

STA BUFFER 

STA LENGTH 



LDA #$00 
STA MOD10 
STA MOD 10+1 
LDX #16 
CLC 
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Program 








I 




r 


RESOLUTION 




Replace 






rfssy 


0AA5- 2E S3 OB 6200 


POL LINE. NUMBER SHIFT TO DIVND BIT 






|JBg|SSjjsiiWKjji|p 


OAA8- 2E 54 OB 6290 


ROL LTNE.NUMBER+1 WHICH QUOTIENT 






l§^ L '-? ? <Ng^R§S^ 


QAAB- 2E 59 OB 6300 


ROL MOD10 ALSO SHIFT DIVIDEND 






"^~ 


OAAE- 2E 5A OB 6310 


ROL MODI 0+1 








6320 






Scroll 


6340 * A, 


Y= DIVIDEND-DIVISOR 


6350 * 









6360 




2630 


STA (PTR1),Y 


0AB1- 33 6370 


SEC 


2640 


IKY 


0AB2- AD 59 OB 6380 


LDA MOD10 






0AB5- E9 OA 6390 


SBC #10 


2650 


CPY #$28 


GAB7- A8 6400 


TAY SAVE LOW BYTE IN Y 


2660 


BNE RCL00P2 


0AB8- AD 5A Ob 6410 


LDA MOD10+1 


2670 


INK 


OABB- E9 0.0 6420 


SBC #0 BRANCH IF DIVIDEND < DIVIS 




0A8D- 90 06 6430 


BCC .3 ELSE 


2680 0P3 


CPX #SC0 


OABF- 8C 59 OB 6440 


STY MOD10 


2690 


BNE RCL00P1 


0AC2- 8D 5A OB 6450 


STA MODI OH 


2700 


RTS 


6470 .3 








0AC5- CA 6480 


DEX 


2720 SAVETOP 


LDX #0 Si' ■■* 0i> m '■' U c 


0AC6- DO DD 6490 


BNE .2 


2730 STLOOP 


LDA HIRESH,X ONTO PM12 


0AC8- 2E 53 OB 6500 


ROL LINE, NUMBER SHIFT IN CARRY FOR QUOT 


2740 


STA PTR1+1 


OACB- JLE 54 OB 6510 


rol line.numbf:r+i 






6530 * 




2750 


LDA HIRESL.X 


6540 * CONCATENATE THE NEXT CHARACTER 


2760 


STA PTR1 


6550 * 

OACE- AD 59 OB 6570 


LDA HOD 10 


2770 


TXA 


0AD1- 09 30 6500 


ORA #530 CONV 0..9 TO ASCII '0 , ...'9 : 


2760 CCARRY2 


CLC 


0A03- EE 50 02 6590 


INC LENGTH INCREASE THE LENGTH BY ONE 


2790 ADD2 


ADC #SB9 


0AD6- AC 50 02 6600 


LDY LENGTH 


2800 


TAX 


0AD9- 99 51 02 6610 


STA BUFFFR,Y SAVE THE ASCII LINE. NUMBER 


66 30 * 




2610 


LDA HIRESH,X 


6640 * IF 


LINE. NUMBER <>0 THEN CONTINUE 


2620 


CLC 


OADC- AD 53 OB 6670 


LDA LINE. NUMBER 


OADF- OD 54 OB 6680 


ORA LINE.NUMBER+1 


2830 


ADC #$20 


0AE2- DO B6 6690 

6700 

0AE4- 60 6710 


BNE .1 BRANCH IF LINE.NUM 


2640 


STA PTR2+1 


RTS RETURN TO CALLING PROGRAM 


2650 


LDA HIRESL,X 


6750 




2860 


STA PTR2 






2670 


TXA 


6770 * ERROF' ■ ' 










2880 SCARRY2 


SEC 


6810 




2890 SUB2 


SBC #SB9 


6820 LINE 


NUMBER. NOT. FOUND 


2900 


TAX 


0AE5- AO 1A 6830 


LDY #N0. LINE-NO. LABEL-1 


0AE7- B9 OF OB 6840 .1 


LDA NO. L ABEL, Y 


2910 


LDY #0 


OAEA- 20 ED FD 6850 


JSR COUT 


2920 5LP2 


LDA <PTR1),Y 


OAED- S8 6860 


DEY 


2930 


STA (PTR2) F Y 


OAEE- 10 F7 6870 


BPL .1 






6900 PRINT. LINE. NUMBER 


2940 


INY 


OAFO- AO 00 6910 


LDY #500 GET LINE WITH ILL BRANCH 


2950 


CPY #528 


0AF2- Bl 75 6920 
0AF4- AA 6930 


LDA (CURLIN),Y LOW BYTE 
TAX 


2960 


BNE SLP2 


0AF5- C8 6940 


INY 


2970 


INX 


0AF6- Bl 75 6950 


LDA <CURLIN),Y HIGH BYTE 


2960 0P4 


CPX #7 


0AF8- 20 24 ED 6960 
OAFB- 20 BE FD 6970 


JSR LINPRT PRINT THE OFFENDING LINE 
JSR CROUT 


2990 


BNE STLOOP 


OAFE- 4C BF 09 6980 


JMP THE. END 


3000 


RTS 


7010 NO. LINE. AFTER. REM 


3020 SCRRGHT 


LDA #0 SCROLL RIGHT 


OB01- AO 28 7020 


LDY #END.MSG-NO.LINE-l 






0B03- B9 2A OB 7030 .1 


LDA NO. LINE, Y 


3030 


STA 0P6+1 


0B06- 20 ED FD 7040 


JSR COUT 


3040 


LDA #$C8 OPCODE FOR 'INY' 


0BO9- B8 7O50 


DEY 


3050 


STA IKY1 


□BOA- 10 F7 7060 


BPL .1 






OBOC- 4C FO OA 7070 


JMP PRINT. LINE. NUMBER 


3060 


STA INY2 


7110 




3070 


STA IKY3 


7120 NO. LABEL 


3080 


LDA #S28 


OBOF- AO C5 CE 








0B12- C9 CC AO 




3090 


STA 0P5+1 


0B15- CE C9 AO 




3100 


LDA #$68 OPCOOE FOR 'DEY' 


0B18- C4 CE D5 
0B1B- CF C6 AO 


continued on page 48 


3110 


STA DEY 
continued on page 46 


P.O. Box 44549, Tacoma, WA 98444 CORE I, 


no. 2 




Pase 3Q 




COPY 



COPY 
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By Robb Canfield 

Apple H with 48K 
At least one disk drive 
Blank, initialized disk 

Programmers need not be paralyzed by trepidation each 
time they use the disk containing the program they spent many 
weeks to compose or many dollars to buy. If you are among 
the countless Apple users who worry that valuable original 
program disks may be hopelessly mangled in day-to-day use, 
there is a solution to your dilemma. 

Acquisition of a simple copy program will enable you to 
make backups easily and quickly, thus protecting your invest- 
ment of hours or dollars. Most copy programs will not copy 
the so-called protected software. The copy program presented 
is no different, and can only copy disks in standard 3.3 for- 
mat . But Quick Copy program will copy a disk faster and pro- 
vide more information about the copy than COPYA. 

To Enter the Program 

1) Boot the 3.3 system master. 

2) Clear the memory of any Applesoft programs. 
FP 

3) Type and save the BASIC listing, "Copy." 
SAVE COPY 

4) Enter the monitor. 
CALL -151 



5) Enter and save the hex dump for "Copy.0" , 

BSAVECOPY.O,A$1200, L$150 

6) Return to BASIC. 
3D«G 

To use the program, RUN COPY 

"Copy" will load the machine code. This code handles all the 
reading and writing to the disk; BASIC is only used to handle 
errors. The default values for source and target drives will 
appear at the top of the screen. These may need to be changed 
for your particular system. The program will handle single 
drive users. 

When the choices tor the source and target drives have been 
entered, you will be prompted to enter those disks in the 
appropriate drives. Single drive users will be prompted to 
change disks occasionally (only three times if a RAM card is 
in operation). 

As the copy is made, the screen will continuously display 
the command in operation and the track/sector being affected. 
The track and sector appear in hex code, while the command 
will appear as cither R(ead) or W(rite.) 

Error messages, if there are any, will appear below this dis- 
play, followed by three choices; 

C(ontinue) with the copy. This function will try to copy that 
sector again. 

S(kip) the current sector and continue. This function will 
skip the bad sector and continue to copy the disk. 

E(xit) the program. This will exit you from the copy mode. 
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Quick Copy consists of two parts. The first part is the con- 
troller and is written in BASIC. The second part is the actual 
routine that reads/writes to the disk, and is written in machine 
language. 

The BASIC program first asks for the source and target 
drives. Then a call is made to the machine code to initialize all 
the variables (CALL 4608). This routine also checks for a 

RAM card and modifies the program if one is in use, allowing 
more tracks to be read at one time. Then a call is made to the 
routine that handles all the reading (CALL 461 1 ). BASIC will 
prompt the user to change disks if necessary, and call the write 
routine (CALL 4614). This process continues until a copy of 
the disk is finished. 

Entry points to the machine code: 

$1200 (4608) : Initialize variables and check for a RAM 
card. 



$1203 (461 1) : Read some sectors. 

$1206 (4614) : Write some sectors. 

$1209 (4617) : This routine is called when an error occurs 
and that sector is to be reread. 

$120C (4620) : This routine is called when an error occurs 
and the sector is to be skipped . 

$120F (4623) : This is the routine that handles both R/W to 
the disk, a sector at a time. 

$1212 (4626) : The IOB table is stored here. 

A copy program is essential to the computer user. It will not 
eliminate the possibility of garbaging your disks. But it will 
prevent the destruction of hard-earned programs. 

NOTE; Use of Quick Copy will leave the user without DOS, 
and will require cold booting the system. 



Program 



1BBB 

1010 * THE e»E tOU COPY A OK* 


i02i * using nc ft* cm if n is 


U30 * Mttuai. urm a ram cm 


1040 * A COPY Q* BE HME IN 3 PASSES 


MKfl *-. ... .. 






imp 






10S0 






1078 






1080 


.ORS1200 




1090 


.TFCCPY.O 




MM 






1110 






1121 RAG 


.EQS0B 


FLAG FOR JOB DONE 


1130 TAB 


.EQ 12 


HTttPOS 


1140 VTAB 


.EQ 11 


VTABPOS 


1150 Ot 


.EQS24 




im SOURCE. TRACK .EO 381 




1170 9QUCE. SECTOR ,EQ 102 




1180 TARGET.TWa .EQ S03 




1180 TARGET. SECTOR .EQ 104 




1200 






1210 






1220 OFFER 


.eq$i#» 




1230 






1240 






1250 ROTS 


.EQ $8785 


MUST USE 48 BOS 


126* com 


.EQ SfDED 


PRBff A CHARACTER 


1270CROUT 


.EOSHBE 


GENERATE A RETURN 


128BHWX 


.EQ0FDDA 


PRINT ACCUK AS A HEX MSH 


1290ROKEV 


.EQSFDK 


GETS A CHARACTER 


1300 TABU 


JQtFBSB 




1310 






1320 






1330 







Copy.O 



1340 ' 

1350* JUT TABLE 

1360 ' 

1370 

1380 JUMP.BttT 

1390 JHPJJffT 

1400 JUW.READ 

1410 JHPREAD 

1420 JUP.WOTE 

1430 JPUOTE 

1440 JurF.CONT.RWTS 

1450 JHP CONT.aiTS 

1460 JUMP. SKIP 

1470 JH? SKIP 

1480 JUf.IOB 

1490 Jf 1002 



1530 

1540 108. TABU 



1550 
I960 SLOT 

1570 DRUE 
1580 VOLUME 
1590 TRACK 
1600 SECTOR 
1610 DUCT 



•H5 00 

mm 

.H5 01 

.HS00 
.US 08 

Mm 

.DA DEVICE. CHAR. TMIE 



1620 DOS.BUFFER .HS 0014 
1630 NOT.USED .HS 0010 
1640COMMC .H8 00 
1658 ERROR .HS 00 
1660 LAST. VOLUME .HS 00 
1670 LAST. SLOT .HS 6S 
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.0 



* 



COPY j 
COPY 
COPY 

fJ\)s'' COPY 
\3h^ COPY 



Checksums 



10 


- $70A8 


210 


- $0198 


410 


- $584F 


610 


20 


- $7131 


220 


- $3A23 


420 


- $CA76 


620 


30 


- $FB29 


230 


- $2C7F 


430 


- $3FCB 


630 


40 


- $68E2 


240 


- $4088 


440 


- $6 A 33 


640 


50 


- $ED64 


250 


- $6362 


450 


- $34DB 


650 


60 


-- $6065 


260 


- $82FB 


460 


- $8F84 


660 


70 


- SCD63 


270 


- $768A 


470 


- $9580 


670 


80 


- $3005 


280 


~ $86 9A 


480 


- $0421 


680 


90 


- $DAAA 


290 


- $4ABF 


490 


- $8709 


690 


100 


- $F8C1 


300 


- $6B24 


500 


- $62 3F 


700 


110 


- $A75F 


310 


- $9078 


510 


- $3ECD 


710 


120 


- $5814 


320 


- $3E95 


520 


- $01B2 


720 


130 


- $7A9E 


330 


- SB021 


530 


- $B5CB 


730 


140 


- $1486 


340 


- $5069 


540 


- $6C3B 


740 


150 


- $A65F 


350 


- $31EA 


550 


- $6060 


750 


160 


- $C8D6 


360 


- $69C1 


560 


- $01A1 


760 


170 


- $12C4 


370 


- $7F50 


570 


- $F1C3 


770 


160 


- teses 


380 


- $A2BA 


580 


- $25CC 


780 


190 


- $B2E3 


390 


- *D24F 


590 


- $2850 


790 


200 


- $3A9E 


400 


- $3C23 


600 


- $CBD5 


800 



$3456 
$6F87 
$2C27 
$1050 
$9390 
$01F6 
$63AO 
$5558 
$C343 
$FFA1 
$4C60 
$0740 
$0430 
$15C1 
$8344 
$4684 
$9150 
$0360 
$6340 
$E089 



810 


- $307A 


820 


- $3103 


830 


- $0190 


840 


- $F0C8 


850 


- $4FD4 


860 


- $590D 


870 


- $F395 


880 


- $575E 


890 


- $8350 


900 


- $41F1 


910 


- $D95F 


920 


- $3D24 


930 


- $440C 


940 


- $6B6F 


950 


- $1889 


960 


- $27BB 


970 


- $C764 


980 


- $0C99 


990 


- $6FB8 


1000 


- $0100 


1010 


- $4122 


1020 


- $A8A6 


1030 


- $E500 




.WSflWiEFW 



im last.drwe .« ii 

16* 
17110 
1710 
1721 

1738 

urn 

1751 *- 

1760'THEHB 

P79 * 

1780 



106 



1810 
1020 
1831 
1840 
I860 
1850 
1870 
1881 

law 

1*0 



UM#T« 
STA CH 
LGfttWTAB 
J8RTMU 
UK COMMAND 
U»Of),X 
JSRCQUT 
LBft wa 
JBRPRHEX 



FRIKT OPERATION IN PROCESS 



GET CHARACTER TO HUNT 



1910 
1920 
1930 

1910 
I960 

i960 
1970 
I960 
1930 



1082 



2010 



2070 



Program 



JSRCOUT 
UM SECTOR 
JSRPHHEX 
BIT SC083 
BntC063 






tm OH THE RAH CARD 



LQA0S00 CLEAR THE ERROR FlAG 

STABNOR 

LDA /306.TABLE 

UK W08JABLE 

J6RRUTS 

FHP 

BJTIC081 

immm 

STA $40 

ap 

ACS .1 
STA ERR* 



T\M OH MOTHER ROMS 
RESET PROCESSOR STACK 



NO ERROR SO UME ERROR CODE INTACT 
RESET ERROR FUft 



RTS 



2090 .1 

2100 
2110 
2120 
2130 

2M0 * 

2KB * INITIALIZE THE I08S 

21fi0 " 

2170 
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. 




• copy 

G > •*" 

«l •' copy 






Pro< 


ijram 




.<$ 




^fta 


LDA TKAOt 






^ copy 




2670 


STA SOURCE. TRACK 


■QP 


copy 




<OnB 

27B0 * 


RTS 


RETURN TO BASIC 






r 




2710 * MSETE A GROUP OF PAGES 


dial juui 




£*&} 






2191 




LDA *SB0 RESET THE BUFFERS 


2740NRITE 






2208 




STA 006 .BUFFER 


2750 


LDA0S2 


SET THE MUTE COMMAND 


2210 




STA D0S.BUFFER*1 


2760 


STA COMMAND 




2220 




STA FLAG RESET FLAG 


2778 


LDA TARGET. TRACK 


223 




STA VOLUME RESET THE VOLUME WWER 


2760 


STA TRACK 




2240 




LDA 134 RESET TRACKS TO START AT 34 


2730 


LDA TARGET. SECTOR 


2250 




STA SOURCE.TRACK RESET THE TRACKS 


sDPP 


STA SECTOR 




22H 




STA TARGET. TRACK 


2810 


JSRGO.RHTS 


WRITE THE SECTORS TO THE DISK 


2270 




IDA MF RESET THE SECTOR 


2820 


LDA TRACK 




2290 




STA TARGET. SECTOR 


2830 


STA TARGET. TRACK 


2290 




STA SOURCE. SECTOR 


■AHH 


LDA SECTOR 




2300 




LOAMS? SHOW NO RAM CARD IK USE 


2850 


STA TARGET. SECTOR 


2310 




STA RAM.CARO+1 


2860 


DCS .1 




2320 






2870 


RTS 


RETURN TO BASIC 


2330 




STA JC883 TURK OH THE RM CARD 


ants 






2340 




STASC083 


2300 .1 






23g| 




LDX W0F CHECK FOR A RAH CARD 


2910 


LDAttffF 


SHOW JOB DONE 


2368 


1 




2920 


STA FLAG 




2378 




LDA UALUES.X HOUE SOME DATA INTO RAH CARD 


2930 


RTS 


RETURN TO BASIC 


2390 




STA JFFF0,X 


2940 






2390 




CMPSFFF0.X 


2980 






24M 




ac .2 


2990 • 






2410 




OEX 


3000 * CONTROLLER FOR RtfFS 


. EXITS HUH 


2420 
2430 

2440 




0PL .1 

LDAMFF 

STA RAH.CARD+1 


3010 * CARRY SET IF ALL DONE. 

"arm * 




3030 






2*50 






3060GO.RNTS 






2460 . 


2 




3070 


LDA /BUFFER 




2470 




STA SC091 TURN OFF THE RAN CARD 


3060 


STA OOS.0UFFER+1 


2490 




RTS RETURN TO CALLER 


3030 C0MT.RWTS2 




2490 






3100 


JSRXOB 


READ/WOTE A SECTOR 


2500 






3110 


BCC SKZP2 


NO ERROR SO CONTINUE 


2510 






3120 


FLA 


GET RETURN ADDRESS 


2520 ' 


>. 






3130 


STA LAST 










2530 ' 


READ A CROUP OF PASES. 


3140 


PLA 




2540 ' 


> _ 






3150 


STALAST+1 










2550 






3160 


RTS 


RETURN TO BASIC HTTH AN ERROR 


2560 READ 




3170 SHF2 






2570 




LDA »1 SET COMMAND TO READ 


3180 


DEC SECTOR 




3tiMi 




STA COMMAND 


3190 


BFL .2 




Ax 




LDA SOURCE. TRACK 


3200 


LDAMF 


RESET SECTOR COUNT 


2600 




STA TRACK 


3210 


STA SECTOR 




2610 




LDA SOURCE. SECTOR 


3220 


DEC TRACK 




2631 




STA SECTOR 


3230 


BPL .2 




2630 




JSRGO.RHTS READ IN SORE SECTORS 


3240 


SEC 


SHOU THAT HE ARE ALL DONE 


2640 




LDA SECTOR 


3250 


RTS 


RETURN TO CALLER 


2660 




STA SOURCE. SECTOR 


3260 
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G 



*. 



O 



/ 



COP/ 
COPY 

V ''' copy 
copy 
copy 






Program 



3278 .2 






32U 


INC DOS.BUFFER+1 


3291 


ISA D06.BJFFERH 


33»fMM.OWa 




33» 


cmpuff 


ALL DONE? 


3320 


BEO .1 




3339 


CHPW87 


USE RAM CARD? 


33« 


aCC0KT.RHTS2 ...ALWAYS 


3351 


u*tae 




3360 


STA DGS.BUFFER+J 


3370 


acCGNT.RWTS2 ...ALWAYS 


3380 .1 


CLC 




3390 


RTS 


RETURN TO CAISR 


3401 






3410 






3420 CONT.IWTS 




3431 


USALASTtl 


RESTORE THE STACK 


3440 


PHA 




3451 


LDALAST 




3460 


PHft 




3470 


JH> CCNT.RWTS2 


3480 






3490 SKIP 






3600 


LBALASTtl 




3511 


PHA 




3520 


LDALAST 




359 


PHA 




3541 


JtPSOPS 










sJtm ■"""■ 






3571 * fxmms USED 





3590 



%i0 c* .as "ma a 

3620 WLUE8 .HS 837F5C095FC1717 

3630 .HS F503FB0359FF86FA 

3640 LAST .86 2 TIC REM* ADDRESS FOR THE STACK 



Program 

Copy 



10 HIMEM: 4607: PRINT CHR* (4)" 

BLOAO COPV.O" 
20 PR# 0: IN* 
30 M$ = CHRS (13>:ES ■ CHR* (27 

) 
40 I = 4626 

50 TEXT : NORMAL : HOME 
60 SS S PEEK (1526) / 16:TS * SS 

:SD = 1:TD ■ 2 
70 VTAB 2: HTAB 11: PRINT "RAM C 

80 VTAB 6: HTAB 9: PRINT "SLOT"; 

: HTAB 15: PRINT "DRIVE" 
90 PRINT "SOURCE:";: HTAB 11: PRINT 

SS;: HTAB 17: PRINT SO 
100 PRINT 
110 PRINT "TARGET:";: HTAB 11: PRINT 

TS;: HTAB 17: PRINT TO 
120 VTAB 7: HTAB 11: GET A* 
130 IF A* - M$ THEN 160 
140 IF AS < "0" OR AS > "7" THEN 

PRINT CHR* <7>: GOTO 230 
150 SS = VAL (A*) 
160 PRINT SS; 
170 HTAB 17: GET A* 
180 IF A* - MS THEN 220 
190 IF AS = E$ THEN 70 
200 IF AS < "1" OR A* > "2" THEN 

PRINT CHR* <7>;: GOTO 170 
210 SD » VAL (AS) 
220 PRINT SD 

230 VTAB 9: HTAB 11: GET AS 
240 IF AS = MS THEN 280 
250 IF AS = ES THEN 70 
260 IF AS < H 0" OR AS > "7" THEN 

PRINT CHRS (7); GOTO 230 
270 TS = VAL (A*) 
280 PRINT TS; 
290 HTAB 17: GET AS 
300 IF AS « M* THEN 340 
310 IF A* » ES THEN 70 
320 IF AS < "1" OR AS > "2" THEN 

PRINT CHRS (7);: GOTO 290 
330 TD - VAL (AS) 
340 PRINT TD 
350 VTAB 12 
360 INVERSE : VTAB 14 
370 PRINT "INSERT SOURCE DISK IN 
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SLOT:"SS", ORIVE:"SD 
380 IF SS < > TS OR SD < > TO THEN 
PRINT : PRINT TAB( 4)"AND 

TARGET DISK IN SLOT:"TS", DR 

IVE:"TD 
390 VTAB 16: HTAB 5 
Am NORMAL 
410 PRINT "PRESS RETURN TO COPY/ 

ESC TO EXIT";: GET At: PRINT 

At 
420 IF A$ < > E* AND At < > Mt 
THEN PRINT CHRt <7>: GOTO 

390 
430 IF At = Et THEN HOME : GOTO 

70 
440 HOME 
450 VTAB 2: HTAB 10: PRINT "COPI 

NG DISK" 
460 CALL 4608 
470 P = 0:ER = P 
480 HOME 

490 IF P AND SS ■ TS AND SD = TD 
THEN HOME : VTAB 12: PRINT 

"INSERT SOURCE DISK IN SLOT: 

"SS", DRIVE:"SO;: GET At: PRINT 

At 
500 POKE I + l.SS * 16: POKE I + 

2,SD 
510 HOME 
520 CALL 4611 
530 GOSUB 790 
540 IF NOT E THEN 580 
550 IF At ■ "S" THEN HOME : CALL 

4620: GOTO 530 
560 IF At - "C" THEN HOME : CALL 

4617: GOTO 530 
570 IF At * "E" THEN 930 
580 IF TS ■ SS AND TD • SD THEN 
HOME : HTAB 12: PRINT "INSE 

RT TARGET DISK IN SLOT:"TS", 
DRIVE: "TD;: GET At: PRINT A 

t 
590 POKE I + 3, PEEK (I + 14> 
600 POKE I + 1,TS * 16: POKE I + 

2,TD 
610 IF P > THEN 710 
620 HOME : VTAB 12: PRINT "INITI 

ALIZING TARGET DISK" 
630 POKE I * 12,4: CALL 4623 
640 IF NOT E THEN 710 
650 VTAB 12: PRINT CHRt (7)"INI 

TIALIZATION ERROR" 
660 PRINT "TRY AGAIN, COPY DISK, 

EXIT (A,C,E>? ";: GET At: PRINT 

At 
670 IF At - "A" THEN 620 



680 IF A* = "C" THEN 710 
690 IF At * "E" THEN 930 
700 PRINT CHRt <7»; GOTO 650 
710 HOME : CALL 4614 

729 GOSUB 790 

730 IF NOT E THEN 770 

740 IF At = "S" THEN HOME : CALL 

4620: GOTO 720 
750 IF At ■ "C" THEN HOME : CALL 

4617: GOTO 720 
760 IF At * "E" THEN 930 

779 IF PEEK (0) THEN 980 

780 P ■ P + 1: GOTO 480 

790 E - PEEK U + 13): IF NOT E 

THEN RETURN 
800 At = "STRANGE ERROR" 
810 IF E * 8 THEN At * "ERROR DU 

RING INITIALIZATION" 
820 IF E * 16 THEN At = "OISKETT 

E IS WRITE PROTECTED" 
830 IF E « 32 THEN At * "VOLUME 

MISMATCH ERROR" 
840 IF E = 64 THEN At * "I/O ERR 

OR" 
850 IF E - 128 THEN At = "READ E 

RROR" 
860 INVERSE : VTAB 14: HTAB (40 - 
LEN <At>> / 2: PRINT CHRt 

(7); At: NORMAL 
870 NORMAL 

880 VTAB 15:ER - ER + 1 
890 PRINT : PRINT TAB! 7 r SKIP/ 

CONTINUE/EXIT <SCE>? ";: GET 

At 
900 IF At m Et THEN At = "E" 
910 IF At < > "S" AND At < > " 

C" AND At < > "E" THEN PRINT 
CHRt (7): GOTO 880 
920 RETURN 
930 HOME 
940 VTAB 12: PRINT "COPY ABORTED 

950 PRINT : PRINT "DO ANOTHER DI 

SK IY/N)? ";: GET At 
960 IF At ■ "Y" THEN RUN 
970 IF At < > "N" THEN PRINT CHRt 

17): GOTO 940 
980 HOME 

990 PRINT "COPY COMPLETED" 
1000 PRINT : PRINT "WITH "ER" ER 

RORS" 
1010 VTAB 12: PRINT "ANOTHER COP 

Y (Y/N)? ";: GET At: PRINT A 

t 
1020 IF AS - "Y" THEN RUN 
1030 HOME : PRINT "BYE BYE" 
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Program 

Scroll 



3120 


STA DEY2 




3130 


JSR HORZ 




3140 


RTS 




3160 SCRLEFT 


LDA #S27 


SCROLL LEFT 


3170 


STA 0P6+1 




3180 


LDA #$88 


OPCODE FOR 'DEY' 


3190 


STA INY1 




3200 


STA INY2 




3210 


STA INY3 




3220 


LDA #$C8 


OPCODE FOR 'INY' 


3230 


STA DEY 




3240 


STA DEY2 




3250 


LDA #SFF 




3260 


STA GP5+1 




3280 * 






3290 * HORIZONTAL SCROLLING ROUTINE 


3300 * 






3320 H0R2 


LDX #0 


START WITH VERT LINE 


3330 BLOOP 


LDA HIRESH,X GET HIBYTE OF VERT LINE 


3340 


STA PTR1+1 




3350 


LDA HIRES!, X GET LOBYTE OF VERT LINE 


3360 


STA PTR1 




3370 DP6 


LDY #0 




3380 


LDA (PTRD,Y GET FIRST OR LAST BYTE ON LINE 


3390 


PHA 


STORE IT IN STACK 


3400 IKY3 


INY 


HOVE EVERY OTHER BYTE 


3410 HLOOP 


LDA <PTRD,Y TO THE LEFT OR TO THE RIGHT 


3420 DEY 


DEY 




3430 


STA <PTRD,Y 




3440 INY1 


m 




3450 INY2 


INY 




3460 0P5 


CPY #S28 




3470 


BNE KLOOP 




3460 DEY2 


DEY 




3490 


PLA 


RECALL FIRST OR LAST BYTE 


3500 


STA (PTRD.Y 




3510 


INX 


INC VERT LINE COUNTER 


3520 


CPX #$co 


FINISHED WITH 192 LINES? 


3530 


BNE BLOOP 


IF NOT, DO NEXT LINE 


3540 


RTS 




3560 * 






3570 » ROUTINE TO CALCULATE LOBYTES OF 


3580 » HI-RES BASE ADDRESSES (PAGED 


3590 * 






3610CALCLO 


LDA 10 




3620 


TAY 




3630 


STA PT81 




3640 ai 


LDA #4 
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3650 


STA PTR2 


3660 CL2 


LDA PTS1 


3670 CL3 


LDX #8 


3680 CL4 


STA HIRESL,Y 


3690 


INY 


3700 


DEX 


3710 


BNE CL4 


3720 


CLC 


3730 


ADC #380 


3740 


BCCCL3 


3750 


DECPTR2 


3760 


BNE CL2 


3770 


LDA PTR1 


3780 


ADC #S27 


3790 


STA PTR1 


3800 


CNP #$78 


3810 


BNE CL1 


3830 # 




3840 * ROUTINE TO CALCULATE HIBYTES Of 


3850 * HI-RES BASE ADDRESS (PAGED 


3860* 




3880 


LDA 13 


3890 


STA GEN1 


3900 


LDY #0 


3910 CHI 


LDA #0 


3920 


STA PTR1 


3930 CH2 


LDA « 


3940 


STA PTR2 


3950 CH3 


LDA PTR1 


3960 CH4 


CLC 


3970 


ADC #$20 


3980 


STA HIRESK,Y 


3990 


SEC 


4000 


SBC #$20 


4010 


INY 


4020 


CLC 


4030 


ADC #4 


4040 


CNP #$20 


4050 


BHI CH4 


4060 


DECPTR2 


4070 


BNECH3 


4080 


INCPTR1 


4090 


LDA PTR1 


4100 


CNP 14 


4110 


BNECH2 


4120 


DEC GEN1 


4130 


BNE CHI 


4140 


RTS 
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ctions 



ARCADE QUALITY 
GRAPHICS 

Page 39, 3rd column: 

BSAVE QUICKDRAW, A$800, L$89 

should read 
BSAVE QUICKDRAW. OBJ, A$800. 
L$89 

Page 40: 

The source code which begins on this 
page is "Quick Draw. Obj." 

Page 42: 

In the "Commands" box, the direc- 
tional keys are W,A,X,D rather than 
W,A,Z,S. 

Page 49. 2nd column: 

30 PRINT CHR$(4)"BLOAD 
QUICK DRAW" 

.should read 

30 PRINT CHR$(4)"BLOAD 
QUICK DRAW. OBJ" 



SCREEN CRUNCHER 

Page 22: 

In illustration 1, there should be only 
two double zeros (00), rather than a 
series of three. 

Page 25, 2nd column: 

BSAVE UN-PACK,A$300,L$ 

should read 
BSAVE UN-PACK, A$300,L$7A 

HI-RES GRAPHICS 

Page 20, 2nd coJumn: 

Page Five A$ 10000 

should read 
Page Five ASA000 

Page 21: 

The fourth decimal number in (he 
chart on the top half of the page should 
read 3072 rather than 3027 . 



SHIMMERING 
SHAPES 

Page 34: 

In figure 3, 
CMP $7F should read CMP #$7F 

N0P should read NOP 



QD.EDITOR 

Page 43: 
Change location 33D from 8D to 99. 

Page 48 

Delete line 2380 



SIACERAID 

Page 60. 

Add: 1545 PRINT CHR$(4)"BLOAD 

TABLES" 



Component Systems Inc. 

SPS -II High Performance Switching Power Supply 



tntrodu 
$95.00 




• Apple® Compatible 

• + 5 volts DC @ 7 amps output 
+ 12 volts DC @ 4 amps output 
- 5 volts DC @ 1 amp output 
-12 volts DC @ 1 amp output 

• 1 lOor 220volts Input Selectable 

• 5 volts DC Adjustment 

• LED Power on Indicator Light 

• AC Power Cord Included 

• I Year Extended Warranty 



Send check or money order for $95.00* plus S3. 00 shipping and handling to: 

Component Systems, Inc., 723 Ninth Avenue, Section A, Kirkland, WA 98033. 

For Master Card and Visa orders, include complete card number and expiration date. 

C.O.D. orders— add $2.00. Sorry, no F.P.O., A.P.O. or orders outside U.S.A. 

Washington residents please add 8.2% sales tax. 

Buy direct-calf collect— 206-822-6028 Quantity Discounts 

*Apple is a registered trademark of Apple 5 Computer Corporation. Dealer and OEM Inquiries Invited 
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we Are Not 
PIRATES 

But we Can Show You How 

UNLOCK LOCKED-UP 
SOFTWARE 



YOU CAN, TOO! 



IN-DEPTH COVERAGE 

of 
Special Interest Subjects 



GRAPHICS 
UTILITIES 



DATA BASES 
GAMES 



For Hobbyists and Advanced 
Computists 

Published Quarterly 



harifcure 

HARD FACTS 

on 

APPLE SOFTWARE 

An Unprecedented and Contro- 
versial disclosure of closely-held 

(COMPUTER SECRETS! 



how to: Back-Up Disks 

Customize 

commercial Programs 

| undo Copv-Protection & More! | 

Published 8 times yearly 






V* U u "-. 



t? 



t 2 >■ ^3 

ro td ±± a 
S < o U 



Program Replace 



OBIE- 


D4 


CF 


CE 






0B21- 


AO 


cc 


C5 






OB24- 


C2 


CI 


CC 


r'130 .AS -" ENIL 


HI DNUOF TON LEBAL" 


0B27- 


3D 


8D 


87 


7140 .HS 8DBD87 

7150 

7160 NO. LINE 




OB2A- 


AO 


C5 


CE 






0B2D- 


C9 


cc 


Au 






CB30- 


CD 


CF 


D2 






0B3 3- 


C6 


AO 


C4 






0B36- 


C5 


CC 


CC 






0B39- 


CI 


C3 




7170 .AS -" ENIL 


MORF DEL LAC" 


0B3B- 


8D 






7180 .US 8D 




OI33C- 


AE 


CC 


C5 






OB3F- 


C2 


CI 


CC 






0B42- 


ao 


D2 


C5 






0134 5- 


04 


m 


CI 






0B48- 


AO 


C5 


OK- 






0B4B- 


C9 


CC 


AS 






0B4E- 


CF 


CE 




7190 .AS -".I.EBAL RETFA ENIL ON" 


0B50- 


8D 


80 


Ui 


7200 .HS 80808-7 

7210 

7220 END.MSG 

7?50 


















7270 * VARIABLES U'3ED 
























7290 




OB53- 








7300 I-I.NE. NUMBER ,BS 2 


LINE NUMBER AFT LABEL (HEX) 


0B5 5- 








7310 NUM.BYTKS .BS 1 


THE NUMBER OF BtfTES FOR DEL 


0B5S- 








7320 OFFSET. 1 .BS 1 


OFFSET FOR THE JUMPS 


QB5 7- 








73 30 OFFSET. 2 .BS ] 


OFFSET FOR THE LABEL 


QB58- 








7 340 TEMP. OFFSET .BS }. 




0B59- 








7350 MODIO .BS 2 

7:;r,o 

7370 




0B5B- 


00 


00 




7380 END, PROGRAM . HS 0000 


^ 



I 



ADVERTISING INDEX 

Applied Engineering 29 

Collegiate Microcomputer 15 

Component Systems 47 

CT Manufacturing 26 

Interface Age inside back 

Micro Analyst inside front 

SoftKey Publishing 48 

VF Associates 11, 22 



HURRY!!! 



Current HARDCORE/CORE readers You have until October 31 , midnight to 



still can renew your subscriptions 
at the old, low rates: 

1 year $20 

2 years $36 

3 years $56 



renew at the old rates, which will then 
be transformed to, not a pumpkin, but: 

1 year $25 

2 years $46 

3 years $69 



The above rates are for our readers 
in the U.S. Foreign subscription 
prices wilt also rise accordingly. 
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Top decision makers agree . . . 

. . .the ONLY source they need to keep up with the latest 



developments in microcomputers is : 



MAGAZINE TM 



INIERFACE AGE 



Look inside IA's pages 
and decide for yourself! 



PORTABLES ' 

Need a computer 
you can tote with you on 
business trips? IA brings 
you the latest 
offerings in this area 
on a monthly basis. 

WORD P ROCES SING 

Practical suggestions 
on how to enhance 
today's word 
processing 
systems. 



BOOK REV IEWS 

A monthly critique of the newest computer books. 





SPECIA L R EPORT 

4 Timely coverage of the 

f microcomputer industry's most 

important topics. 



PROD UCT HIGHLIGHT 



In this monthly feature, 
our editors give you an in- 
depth evaluation of the 
"hottest" product of 
the month. 



APPLICATION 



NEW PRODUCTS J 

Photos and descriptions of the 
newest products in every 
category from Business Software 
to Printers. 




Learn how to apply your new- 
found knowledge by reading 
these how-to articles. 



HARDWAR E & SOFTWARE COMPARIS ON C HARTS 

IA publishes the most extensive, up-to-date, hardware and 
software comparison tables in the computer industry. 



NO-RISK TRIAL SUBSCRIPTION ORDER 

12 issues for S21. That's a 40% savings off the single 
copy price. If you are not delighted, you may cancel 
your subscription at any time and receive a prompt 
refund for all unm ailed issues with no questions 
asked. 

MAIL OR CALL TODAY 

"One year 112 issues) $21.00 (U.S. only) 
LTwo Years (24 issues) $36.00 (U.S. only) 
TjCanada One Year 527.00 
Dl Year Air Delivered Europe only $42.00 
~1 1 Year Delivered All Other Countries $60.00 
Jl Year Surface Mail All Countries $35.00 

SUBSCRIBE TODAY! 

Outside of California call toll-free 8 a.m. to 5 p.m. 

Pacific Standard Time 

Charge subscription with your credit card 

1-800-423-6665 Ext. 56 
(within California call collect 0-213-926-4862) 



Payment must accompany this order 



Card No. 

Signature 

Name 



Check enclosed 
Zl must be in U.S. funds 
drawn on U.S. bank 



. Exp. Date 



Street 
City 



State . 



Zip. 



Make check or money order payable to INTERFACE AGE Magazine 

P.O. Box 1234, Dept. B056 Cerritofi, CA 90701 

Allow 6-8 weeks for delivery after receipt of payment 






Don't miss 
upcoming issues of 




In time for Christmas, 

All. ABO UT GAMES 

THE LARGEST, 

MOST COLORFUL 

MAGAZINE OF THE YEAR, 

Featuring an extensive game list, 
game evaluations, and 

an entirely new 

one-player or two-player 

computer game. 

AND: 

DATA BASES 

CORE/HARDCORE COMPUTIST 
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